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PREFACE 



FORTRAN is a problem oriented language designed to permit scientists 
and engineers to express mathematical operations in a form with which 
they are familiar. It is also used in a variety of applications 
including process control, information retrieval, and commercial data 
processing. 

This document describes the form of the basic elements of the FORTRAN 
program, the FORTRAN statements. The document is a reference manual, 
and, while it can well be used by an inexperienced FORTRAN programmer, 
it is not designed to function as a tutorial manual. 

Because this document serves as the FORTRAN Language Reference Manual 
for several of the operating systems which run on the PDP-11 family of 
computers, it makes no reference to system dependent information. 
Associated with this document, however, should be the FORTRAN User's 
Guide containing the necessary information for running a FORTRAN 
program on a, specific operating system. 



DOCUMENTATION CONVENTIONS 

Throughout this manual the following notations are used to denote 
special non-printing characters: 

-*j Tab character (TAB key or CTRL/I key 

combination) 

A (delta) Space character (SPACE bar) 

This document serves as the FORTRAN language reference manual for two 
PDP-11 FORTRAN processors: FORTRAN IV and FORTRAN IV-PLUS. 

FORTRAN IV-PLUS is a superset of FORTRAN IV, with one exception: the 
VIRTUAL array feature, described in Appendix D and mentioned at several 
points in the main portion of the manual, pertains only to FORTRAN IV. 

Language elements common to both processors are presented without 
background shading. Language elements available only in FORTRAN 
IV-PLUS are printed against a shaded background. 
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SYNTAX NOTATION 

The following conventions are used in the descciption of FORTRAN 
statement syntax. 

1. Upper case wocds and letters, as well as punctuation marks 
other than those described in this section, are written as 
shown . 

2. Lower case words indicate that a value is to be substituted. 
The accompanying text specifies the nature of the item to be 
substituted, e.g., integer variable or statement label. 

3. Square brackets ( [ ] ) enclose optional items. 

4. An ellipsis (...) indicates that the preceding item or 
bracketed group can be repeated any number of times. 

For example, if the description were 

CALL sub [ (a [,a] . . . ) ] 

then all of the following would be correct: 

CALL TIMER 

CALL INSPCT (I, J, 3.0) 

CALL REGRES (A) 



X 
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CHAPTER 1 
INTRODUCTION TO PDP-11 FORTRAN 



1 . I LANGUAGE OVERVI EW 

The PDP-11 FORTRAN language conforms to the specifications for 
American National Standard FORTRAN X3. 9-1966. The following 
enhancements to American National Standard FORTRAN are included in 
PDP-11 FORTRAN: 

1. Any arithmetic expression can be used as an array subscript. 
If the expression is not of type Integer, it is converted to 
Integer form. 

2. Alphanumeric literals (character strings bounded by 
apostrophes) can be used in place of Hollerith constants. 

3. Mixed-mode expressions can contain elements of any data 
type, including Complex. 

4. The statement label list in an assigned GO TO statement is 
optional . 

5. The following Input/Output statements have been added: 

ACCEPT ) 

TYPE > Device-oriented I/O 

PRINT ) 

DEFINE FILE \ 

READ (u'r) I 

WRITE (u'r) ( Unformatted Direct Access I/O 

FIND (u'r) ; 

6. The specifications END=n and/or ERR=n can be included in any 
READ or WRITE statement to transfer control to the specified 
statement upon occurrence of an end-of-file or error 
condition. 

7. The following additional data type is provided: 

L0GICAL*1 

8. The IMPLICIT statement redefines the implied data type of 
symbolic names. 

9. Any FORTRAN statement can be followed, in the same line, by 
an explanatory comment that begins with an exclamation 
point. 
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10. 



11. 

12. 

13. 
14. 
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Statements can be included in a program for debugging 
purposes by placing the letter D in column 1. These 
statements are compiled only when the associated compiler 
option switch is set; otherwise, they are treated as 
comments. 

Undersized input data fields can contain external field 
separators to override the FORMAT field width specifications 
for those fields (called "short field termination"). 

Any arithmetic expression can be used as the initial value, 
increment, or limit parameter in the DO statement, or as the 
control parameter in the computed GO TO statement. 



The value of the DO statement 
negative . 



increment parameter can be 



Constants and expressions are permitted in the I/O lists of 
WRITE, TYPE, and PRINT statements. 



15. A PROGRAM statement can be used in a main program. 



16. An optional comma is allowed in DO 
readability and reduced user errors. 

For example 

DO 5, 1=1,10 



statements for better 
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INTRODUCTION TO PDP-11 FORTRAN 

I.' 24.' The INCLUDE stabement Incorporates FORTRAN source text from 
I'; .& separate file into a FORTRAN program, 

:. 25. Formatted input/output can be performed without a format 
I' 'specification using list-directed I/O. 



1 . 2 ELEMENTS OF A FORTRAN PROGRAM 

A FORTRAN program consists of FORTRAN statements and optional 
comments. The statements are organized in logical units called 
program units. A program unit is a sequence of statements terminated 
by an END statement that defines a computing procedure. A program 
unit can be either a main program or a subprogram. One main program 
and possibly one or more subprograms comprise the executable program. 



1.2.1 Statements 

Statements are grouped into two general classes: executable and 
nonexecutable. Executable statements describe the action of the 
program; nonexecutable statements describe data arrangement and 
characteristics, and provide editing and data conversion information. 

Statements are divided into physical sections called lines. A line is 

a string of up to 72 characters. If a statement is too long to be 

contained on one line, it can be continued on one or more additional 

lines, called continuation lines. A continuation line is identified 

by the presence of a continuation character in the sixth column of 
that line. (For further information concerning continuation 
characters, see Section 1.3.4, Continuation Field.) 

A statement can be identified by a statement label so that other 
statements can refer to it, either for the information it contains or 
to transfer control to it. A statement label has the form of an 
integer number placed in the first five columns of a statement's 
initial line. 



1.2.2 Comments 

Comments do not affect the meaning of the program in any way, but are 
a documentation aid to the programmer. They should be used freely to 
describe the actions of the program, to identify program sections and 
processes, and to provide greater ease in reading the source program 
listing. The letter C in the first column of a source line identifies 
that line as a comment. Also, if an exclamation point (!) is placed 
in the statement portion of a source line, the rest of that line is 
treated as a comment. 



1.2.3 The FORTRAN Character Set 

The FORTRAN character set consists of; 
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1. The upper case letters A through Z and the lower case letters 
a through z 

2. The numerals through 9 

3. The following special characters! 



Character 


Name 


A 


Space or Blank or Tab 


= 


Equals 


+ 


Plus 


- 


Minus 


* 


Asterisk 


/ 


Slash 


( 


Left Parenthesis 


) 


Right Parenthesis 


/ 


Comma 


• 


Decimal Point 


1 


Apostrophe 


II 


Double Quote 


$ 


Dollar Sign 


■ 


Colon 



In POaTRiyft IV-PtOSV the following additional special char act»rV <(*€ 

usedt "' " '■' ■ -"',■'. '""l -.,'r ^' 

■-'-.■''-'.?, 3- "^^ -1,4 '-•}} •- ■ ». '"i'J . -r "''•••^ .- ' -'-.'ti)-^ • »"5- " ' , -"*? 

'"~ -.■■•':-'. ^.'; <■ ' .,l^tt Anfle Bracket ._ , ,. ' ^./-J -^ 

'' rKi >' '•-,! .-4 • > ' Sight Angle Bracket _ . •.. ■ 



Ocher printable characters may appear in a FORTRAN statement only as 
part of a Hollerith constant or alphanumeric literal. Any printable 
character can appear in a comment. 

Except in alphanumeric literals and Hollerith constants, the compiler 
makes no distinction between upper and lower case letters. 



1.3 FORMATTING A FORTRAN LINE 

The formatting of a FORTRAN line is the same for lines punched into 
cards or paper tape and for lines entered from a terminal using a text 
editor. Only the method of formatting differs. 
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1 . ;l . 1 Using FORTRAN Coding Forms 

A FORTRAN line is divided into fields for statement labels, 
continuation indicators, statement text and sequence numbers. Each 
column represents a single character. The usage of each type of field 
is described in the following sections. 
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Figure 1-1 
FORTRAN Coding Form 



1.3.2 Using a Text Editor 

When creating a source program via a terminal, using a text editor, 
the user can type the lines on a "character-per-column" basis, or use 
the TAB character to facilitate formatting the lines. 

If a TAB character appears at the beginning of a line, possibly 
preceded by a statement label or a D in column 1, and the following 
character is a digit, the compiler treats the digit as a continuation 
indicator and the character following as the beginning of the 
statement text. If the character following the initial TAB is not a 
digit, the compiler treats it as the first character of the statement 
text. If the continuation indicator is a "0" the line is an initial 
line. 

While many text editors and terminals advance the terminal print 
carriage to a predefined print position when the TAB character is 
typed, this action is not related to the interpretation of the TAB 
character described above. 
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Formatting of the following lines can be accomplished in either of the 
following ways: 

HlAHOLD, MOVE, DECODE or AAAAAl AHOLD, MOVE , DECODE 

CHINITIALIZEAARRAYS or CAAAAAINITIALIZEAARRAYS 

10Hw=3 or 10AAAAw=3 

HSEL(1)=111200022DO or -AAA^AA^EL (1) =11120002200 

where: 

-\ represents a TAB character (CTRL/I) , and 

A represents a space character (SPACE bar) . 

The space character can be used in a FORTRAN statement to improve 
legibility of the line? the compiler ignores all spaces in a 
statement field except those within a Hollerith constant or 
alphanumeric literal (e.g., GO TO and GOTO are equivalent). The TAB 
character in a statement field is treated the same as a space by the 
compiler. In the source listing produced by the compiler, the TAB 
causes the character that follows to be printed at the next tab st.op 
(located at columns 9,17,25,33, etc.). 

1.3.3 Statement Label Field 

A statement label or statement number consists of one to five decimal 
digits placed in the first five columns of a statement's initial line. 
Spaces and leading zeros are ignored. An all-zero statement label is 
illegal. 

Any statement to which reference is made by another statement must 
have a label. No two statements within a program unit can have the 
same label. 



1.3.3.1 Comment Indicator - The letter C can be placed in column one 
to indicate that the line is a comment. The compiler prints the 
contents of that line in the source program listing, then ignores the 
line. 



1.3.3.2 Debug Statement Indicator - Debug statements are designated 
by a D in column one. The initial line of the debug statement can 
contain a statement label in columns two through five. If a debug 
statement is continued onto more than one line, then every 
continuation line must contain a D in column one as well as a 
continuation character in column six. 

The debug statement can be treated either as source text to be 
compiled or as a comment, depending on the setting of a compiler 
command switch. When the switch is set, debug statements are compiled 
as a part of the source program; when it is not set, debug statements 
are treated as comments. 
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1.3.4 Continuation Field 

Column six of a FORTRAN line is reserved for a continuation indicator. 
Any character except zero or space in this column is recognized as a 
continuation indicator. A statement can be divided into distinct 
lines at any point. The characters beginning in column seven of a 
continuation line are considered to follow the last character of the 
previous line as if there were no break at that point. 

Comment lines cannot be continued. All comment lines must begin with 
the letter C in column one. Comment lines must not intervene between 
a statement's initial line and its continuation line(s), or between 
successive continuation lines. 



1 . 3 . !> Statement Field 

The text of a FORTRAN statement is placed in columns 7 through 72. 
Because the compiler ignores the TAB character and spaces (except in 
Hollerith constants and alphanumeric literals) , the user can space the 
text in any way desired for maximum legibility. 



1 . 3 . (5 Sequence Number Field 

A sequence number or other identifying information can appear in 
columns 73-80 of any line in a FORTRAN program. The characters in 
this field are ignored by the compiler. 

NOTE 

Text is ignored with no warning message 
printed if a line accidentally extends 
beyond character position 72, 



1 . 4 PROGRAM UNIT STRUCTURE 

Figure 1-2 provides a graphic representation of the rules for 
statement ordering. In this figure, vertical lines separate statement 
types which may be interspersed, such as DATA and executable 
statements; horizontal lines indicate statement types that can not be 
interspersed, such as DATA and PARAMETER statements. 
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Comment 
Lines 


PROGRAM, FUNCTION, SUBROUTINE, or 
BLOCK DATA Statement 


FORMAT 

and 

ENTRY 

Statements 


PARAMETER 
Statements 


IMPLICIT 
Statements 


Other Specification 
Statements 


DATA 
Statements 


Statement 

Function 

Definitions 


Executable Statements 




END Line 



Figure 1-2 
Required Order of Statements and Lines 



ICLUDE 



1.5 INCLUDE STATEMENT 

The INCLUDE statement specifies that the contents of a designated file 
are to be incorporated in the FORTRAN compilation directly following 
the INCLUDE statement. 

The INCLUDE statement has the form: 



INCLUDE •filspecf/fNOlLIST] ' 

filspec is a character string that specifies the file to be 
included in the compilation. This file specification 
must be acceptable to the operating system, (See the 
FORTRAN IV-PLUS User's Guide for the form of a til6 
specification.) 

The option specification /LIST indicates that the statements in thk 
included file are to be listed in the compilation source listing 
preceded by an asterisk <*) . The /NOLIST option specification 
indicates that the included statements are not to be listed In. the ^ 
compilation source listing. The /LIST option is assumed if neltRfr,, 
option is specified. f-»^'.-%"'"l3 

When the compiler encounters an INCLUDE statement, it stops reading: 
statements from the current file and compiles the statements in the, 
included file. V»men the end of the included file is reacbedV 
compilation resumes with the statement following . the INCLUDE 
statement. 
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I'An :rNCi;iUt)E statement can be contained in an included file. 

|An included file can not begin with a continuation line. Each FORTRAN 
L^tateinent must be completely contained within, a single file. 

itlie INCLUDE statement can appear anywhere that a comment line can 
q>ppf>ar «s Illustrated in Figure 1-2. Any FORTRAN statement c^n appear 

4n <in tiJCluded file; however, the included statements, when combined 

^LWi the other statements of the compilation must satisfy the 

^tdtement ordering restrictions of Section 1.4. 

s\ ' ■ 






i 



Main Program File 

INCLUDE • COMMON. FTN' 

DIMENSION Z(M) 

CALL CUBE 

m 5, 1-1, M 

Zll) " X<I)+SQRT<y(I)) 



Pile COMMON. FTN 

PARAMETER M « 100 
COMMON X(M) ,Y(M) 



SUBROUTINE CUBE 
INCLUDE 'COMMON. FTN" 
DO 10, I»1,M 
10 X{I) « y(I)**3 
RETURN 
END 



;^HE PILE COMMON. FTN defines the size of the blank COMMON block and the 
■siae of the arrays x, Y and z. 
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CHAPTER 2 
FORTRAN STATEMENT COMPONENTS 

2 . 1 INTRODUCTION TO FORTRAN STATEMENT COMPONENTS 
The basic components of FORTRAN statements are: 

1. Constants 

A constant represents a fixed, self-describing value. 

2. Variables 

A variable is a symbolic name that represents a stored value. 

3. Arrays 

An array is a group of values, stored contiguously, that can 
be referred to individually or collectively. The individual 
values are called array elements. A symbolic name is used to 
refer to the array. 

4. Expressions 

An expression can be a single constant, variable, array 
element, or function reference, or it can be a combination of 
those components and certain other elements, called 
operators, that specify computations to be performed on the 
values represented by those components to obtain a single 
result. 

5. Function References 

A function reference is the name of a function followed by a 
list of arguments which, performs the computation indicated by 
the function definition. The resulting value is used in 
place of the function reference. Function references are 
treated in detail in Chapter 8. 



2.2 SYMBOLIC NAMES 

Symbolic names are used to identify many entities within a FORTRAN 
program unit. 

A symbolic name is a string of letters and digits, the first of which 
must be a letter. The name can be of any length, but characters after 
the sixth are ignored. Examples of valid and invalid symbolic names 
are: 



Valid 

NUMBER 

K9 

X 



Invalid 

5Q 
B.4 



(Begins with a numeral) 
(Contains a special character) 
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Table 2-1 indicates the types of 
symbolic names. 



entities which are identified by 



Within one program unit, the same symbolic name cannot be used to 

identify more chan one entity, except as noted. Within an executable 

program, the same symbolic name can be used to identify only one of 

the encicies indicated as "Unique in Executable Program" in Table 2-1. 

Each entity indicated as "Typed" in Table 2-1 has a data type. The 
means of specifying the data type of a name are discussed in Sections 
2.5.1 and 2.5.2. 

Within a subprogram, symbolic names are also used as dummy arguments. 
A dummy argument can represent a variable, array, array element, 
constant, expression, or subprogram. 



Table 2-1 
Classes of Symbolic Names 







Unique in 


Entity 


Typed 


Executable Program 


Variables 


yes 


no 


Arrays 


yes 


no 


Arithmetic statement functions 


yes 


no 


Processor-defined functions 


yes 


yes 


Function subprograms 


yes 


yes 


Subroutine subprograms 


no 


yes 


Common blocks 


no 


yes 


Main programs 


no 


yes 


Block data subprograms 


no 


yes 


Function entries 


yes 


yes 


SubEOutine entries 


no 


yes 


Parameter constants 


yes 


no 



2.3 DATA TYPES 

Each basic component represents data of one of several different 
types. The data type of a component can be inherent in its 
construction, implied by convention, or explicitly declared. The data 
types available in FORTRAN, and their definitions, are as follows: 



1. Integer 

2. Real 

3. Double Precision 

4. Complex 

5. Logical 



- A whole number. 

- A decimal number; it can be a whole 
number, a decimal fraction, or a 
combination of the two. 



Similar to real, but 
twice the degree of 
representation. 



with more than 
accuracy in its 



- A pair of real values that represents a 
complex number; the first represents 
the real part of that number, the second 
represents the imaginary part- 

- The logical value "true" or "false". 
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An Important attribute of each type of data is the amount of memory 
required to represent a value of that type. Variations on the basic 
types affect either the accuracy of the represented value or the 
allowed range of values. 

Hollerith constants and alphanumeric literals have no data type. They 
assume the data type of the context in which they appear. See Section 
2.4.7.2 for details. 

Standard FORTRAN specifies that a "storage unit" is the amount of 
storage needed to represent a Real, Integer or Logical value. Double 
Precision and Complex values occupy two storage units. In PDP-11 
FORTRAN a storage unit corresponds to four bytes (two words) of 
memory. 

PDP-11 FORTRAN provides additional types of data for optimum selection 
of performance and memory requirements. Table 2-2 lists the data 
available, the names associated with each data type, and the 

*n appended to a data type name 



types 

amount of storage required. The form 

is called a data type length specifier 



Table 2-2 
Data Type Storage Requirements 



DATA TYPE 



INTEGER 

INTEGER*2 

INTEGER*4 

REAL 
REAL*4 

DOUBLE PRECISION 
REAL*8 

COMPLEX 
C0MPLEX*8 

LOGICAL 

LOGICAL* 1 
BYTE 

LOGICAL* 2 

LOGICAL* 4 



FORTRAN IV 
(Bytes) 



2 or 4 (Note 1) 

2 

4 (Note 3) 

4 

8 



1 (Note 5) 

Not Available 
4 



FORTRAN IV-PLUS 
(Bytes) 



2 or 4 {Note 2) 
2 , 

4 , ■" , 

:'4 , 

8 

2 or. 4 {Note 4) 
I fuote 5) 

2 

,4 ■ 
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NOTES: 

1. Either two or four bytes are allocated according to a 
compiler command specification. The default allocation is 
two bytes. In either case only two bytes are used to 
represent the integer value. The 4-byte allocation is 
provided to simplify use of programs developed on other 
FORTRAN systems. (Consult the FORTRAN IV User's Guide for 
details. ) 

2. Either two or four bytes are allocated depending on a 
compiler command specification. The default allocation is 
two bytes. When four bytes are allocated, all four bytes are 
used to represent the integer value. Hence 4-byte integers 
can store a larger range of values than 2-byte integers. 
(4-byte integers can also simplify the use of programs 
developed on other FORTRAN systems.) 

3. Four bytes are allocated but only the first two are used to 
represent the integer value. The range of possible values is 
therefore the same as for INTEGER*2 variables. 

4. Either two or four bytes are allocater' depending on a 
compiler command specification. Two h\f^S is the normal 
case. 

5. The 1-byte storage area can contain the logiaqt vfalues true 
or false, a single Hollerith character, or ;n;^gers in the 
range -128 to +127. 

Additional descriptions of these data types and their representations 
are presented in the sections that follow. 



2.4 CONSTANTS 

A constant represents a fixed value. A constant can represent a 
numeric value, a logical value, or a character string. 



2.4.1 Integer Constants 

An integer constant is a whole number with no decimal point. It can 
have a leading sign and is interpreted as a decimal number. 

An integer constant has the form: 

snn 

where nn is a string of numeric characters and s is an optional sign. 
Leading zeros, if any, are ignored. 

A negative integer constant must be preceded by a minus symbol; a 
positive constant can optionally be preceded by a plus symbol (an 
unsigned constant is presumed to be positive) . 

Except for a leading algebraic sign, an integer constant cannot 
contain any character other than the numerals through 9. 

The absolute value of an integer constant cannot be greater than 32767 
in FORTRAN IV or 2147483647 in FORTRAN IV-PLUS. 
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Examples 



Valid 
Integer Constants 



-127 

+32123 



Inval id 
Integer Constants 

99999999999 

3.14 
32,767 



(Too large) 
(Decimal point and 
comma not allowed) 






M-n FORTRAN IV-VWBt \t the value Of the constant la within the range 
^1276^ to +3.276^ Op»en it fepresenfcs a l^~bit signed goantity and is 
Klfcti&ated as tjSTEGER*2 data type, "tf the value is outside that lange 
l^lbbisn it represents a 32-bit signed guaritity and is treated as 
*'tI«TfiGER*4 data type. 



m 
are 



2.4.2 Real Constant s 

A basic real constant is a string of decimal digits with a decimal 
point. 

A basic real constant has the form: 

s.nn OR snn.nn OR snn. 

wh(2re nn is a string of numeric characters and s is an optional sign. 
The decimal point can appear anywhere in the string. The number of 
digits is not limited, but only the leftmost eight digits are 
significant. Leading zeros (zeros to the left of the first non-zero 
digit) are ignored when counting the leftmost eight digits. Thus 
Che constant 0.000012345678 all of the non-zero digits 
significant. 

A basic real constant must contain a decimal point. 

A real constant is a basic real constant or an integer constant or 
basic real constant followed by a decimal exponent of the form: 

Esnn 

where nn is a 1- or 2-digit integer constant and s is an optional 
sign. It represents a power of ten by which the preceding real or 
integer constant is to be multiplied (e.g., 1E6 represents the value 
1.0 X 10^) . 

A real constant occupies two words (i.e., four bytes) of PDP-11 
storage and is interpreted as a real number having a degree of 
precision slightly greater than seven decimal digits. 

A minus symbol must appear between the letter E and a negative 
exponent; a plus symbol is optional for a positive exponent. 

Except for algebraic signs, a decimal point, and the letter E (if 
used) , a real constant cannot contain any character other than the 
numerals through 9. 
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If the letter E appears in a real constant, a 1- or 2-digit integer 
constant must follow; the exponent field cannot be omitted, but can 
be zero. 

—38 

The magnitude of a real constant cannot be smaller than 0.29 x 10 

nor greater than 1.7 x 10-^°. 



Examples 



Valid 
Real Constants 

3.14159 
621712. 

-.00127 
+5.0E3 
2E-3 



Invalid 
Real Constants 

1,234,567 

325E-75 
-47.E47 
100 
$25.00 



(Commas not allowed) 
(Too small) 
(Too large) 

(Decimal point missing) 
(Special character 
not allowed) 



2.4.3 Double Precision Constants 

A double precision constant is a basic real constant or an integer 
constant followed by a decimal exponent of the form: 

Dsnn 

where nn is a 1- or 2-digit integer constant and s is an optional 
sign. The number of digits that precede the exponent is not limited, 
but only the leftmost 17 digits are significant. 

A double precision constant occupies four words of PDP-11 storage and 
is interpreted as a real number having a degree of precision 
approximately equal to 17 significant digits. 

A negative double precision constant must be preceded by a minus 
symbol; a positive constant can optionally be preceded by a plus 
symbol. Similarly, a minus symbol must appear between the letter D 
and a negative exponent; a plus symbol is optional for a positive 
exponent. 

The exponent field following the letter D cannot be omitted, but can 
be zero. 

The magnitude of a double precision constant cannot be smaller than 
0.29 X 10~3S, nor greater than 1.7 x lO^^. 



Examples 



1234567890D+5 
+2,71828182846182000 
-72.5D-15 
IDO 
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2.4.4 C omplex Constants 

A complex constant is a pair of real constants separated by a comma 
and enclosed in parentheses. The first real constant represents the 
real part of that number and the second represents the imaginary part. 

A complex constant has the form: 

(re, re) 

where re is a real constant. The parentheses and comma are part of 
the constant and must be present. The rules for the constituent real 
constants are given in Section 2.4.2. 

A complex constant occupies four consecutive words of storage and is 
interpreted as a complex number. 



Examples 



(1.70391,-1.70391) 
(+12739E3,0.) 



2.4.5 O ctal Constants 

An octal constant is an alternate way of representing an integer 
constant and can be used in a like manner. 

An octal constant has the form: 

"nn 

where nn is a string of octal digits. 

Except for the leading double quote, which must be present, an octal 
constant cannot contain any character other than the numerals 
through 7. 

An octal constant cannot be smaller than zero, nor greater than llipil 
in FORTRAN IV or 21111111111 in FORTRAN IV-PLUS. 

Examples 



Valid 
Octal Constants 

"7213 

"1 

"17776 



Invalid 
Octal Constants 

32767 
"184 



(Double quote missing) 
(Illegal character) 
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2.4.6 Logical Constants 

A logical constant specifies a logical value, "true" or "false". 
Therefore, there are only two possible logical constants. They appear 
as : 

.TRUE. M^-'"^- 

and 

.FALSE. 
The delimiting periods are part of each constant and must be present. 

2.4.7 Hollerith Constants 

A Hollerith constant is a string of ASCII characters preceded by a 
character count and the letter H. 

A Hollerith constant has the form: 

nHcTC_C- ... c 
12 3 n 

where n is an unsigned, non-zero integer constant stating the number 
of characters in the string (including spaces and tabs) , and each c is 
an ASCII character. The maximum number of characters is 255. 

Hollerith constants are stored as byte strings, one character per 
byte. 

Hollerith constants have no data type. They assume the data type of 
the context in which they appear. 

Examples 

Valid Invalid 

Hollerith Constants Hollerith Constant 

leHTODAY'SADATEAIS: 3HABCD (Wrong number of characters) 
IHA 



2.4.7.1 Alphanumeric Literals - An alphanumeric literal is an 
alternate form of Hollerith constant • 

An alphanumeric literal has the form: 

12 3 n 

where each c is a printable ASCII character. Both delimiting 
apostrophes must be present. The maximum number of characters in an 
alphanumeric literal is 255. 

Within an alphanumeric literal, the apostrophe character is 
represented by two consecutive apostrophes. 

Examples 

•CHANGEAPRINTERAPAPERATOAPREPRINTEDAFORMANO. A721 • 

' TODAY " SADATEAIS : AA ' 
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2.4.7.2 Da ca 



, T yp e_ 



Rules 



for 



Hollerith 



Constants - When 



an 

alphanumeric 1 iteral or Hollerith constant is used in an expression, 
the data type assumed for the constant is governed by the following 
rules. 

1. Tn combination with a binary operator, including the 
assignment operator, the type of the constant is the type of 
the other operand. 

Examples: 

Statement 



Data Type 



REL = 'ABCD' REAL*4 

TFd.EO. 'XY') GO TO 3 TNTEGEE*2 

M = N - 'ABC INTEGER* 2 

X = 'Z' REAL*4 



Length of Constant 

4 
2 
2 
4 



2. In con-texts where a specified data Type is required, 
generally integer, that type is assumed for the constant . 

Example : 

Y(IX)=Y( 'ABC')+3. INTEGER*2 2 

3. When the constant is used as an actual argument, no data type 
is assumed. 

Example : 

CALL APAC { 'ABCDEFGHI') 9 

4. In all other contexts, INTEGER*2 type is assumed. 
Examples : 



IF 


CAB') 1,2,3 


INTEGER*2 


2 


1 = 


•C'-'A' 


INTEGER*2 


2 


J = 


.NOT. 'B' 


INTEGER*2 


2 



When the length of the constant is less than the length implied by the 
data type, spaces are appended to the constant on the right. When the 
length of the constant is greater than the length implied by the data 
type, the constant is truncated on the right. 

The number of characters required for each data type is illustrated in 
Table 2-2. Each character occupies one byte of storage. 



2.4.8 Radix-50 Constants 

Radix-50 is a special character data representation in which 
three characters from the Radix-50 character set (a subset 
ASCII character set) can be encoded and packed into a single 
word. Radix-50 constants can only be used in DATA statements. 



up to 
of the 
PDP-11 
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A Radix-50 constant has the following form: 

nRc,c„ . . . c 
12 n 

where n is an unsiqned non-zero integer constant that states the 
number of characters to follow, and each c is a character from the 
Radix-50 character set. The maximum number of characters is twelve. 
The character count must include any spaces that appear in the 
character string (the space character is a valid Radix-50 character). 

The internal numeric value of any combination of one, two, or three 
Radix-50 characters is tabulated in Appendix A. 

The Radix-50 characters and their code values are: 





Rad 


ix-50 Value 


Character 




(Octal) 


Space 







A - Z 




1-32 


^ 




33 


• 




34 


(not used) 




35 


0-9 




36-47 



Examples 



4RABCD 

6RAAT0AA 

4RDK0: (Invalid; colon is not a Radix-50 character) 



2.5 VARIABLES 

A variable is a symbolic name that is associated with a storage 
location. The value of the variable is the value currently stored in 
that location; that value can be changed by assigning a new value to 
the variable. (The form of a symbolic name is given in Section 2.2.) 



Variables are classified by data type, just as constants are. 
data type of a variable indicates the type of data it represent 



The 
Bents, its 
precision, and its storage requirements. When data of any type is 
assigned to a variable, it is converted, if necessary, to the data 
type of the variable. The data type of a variable may be established 
either by type declaration statements, IMPLICIT statements, or 
predefined typing rules. 

Two or more variables are associated with each other when each is 
associated with the same storage location; or, partially associated, 
when part (but not all) of the storage associated with one variable is 
the same as part or all of the storage associated with another 
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variable. Association and partial association occur through the use 
of COMMON statements, EQUIVALENCE statements, and through the use of 
actual arguments and dummy arguments in subprogram references. 

A variable is said to be defined if the storage with which it is 
associated contains a datum of the same type as the name. A variable 
can be defined prior to program execution by means of a DATA statement 
or during execution by means of assignment or input statements. 

If variables of differing types are associated (or partially 
associated) with the same storage location, then defining the value of 
one variable (for example, by assignment) causes the value of the 
other variable to become not defined. 



2.5.1 Data Type Specification 

Type declaration statements (Section 7.2) specify that given variables 
are to represent specified data types. For example: 

COMPLEX VARl 

DOUBLE PRECISION VAR2 

These statements indicate that the variable VARl is to be associated 
with a 4-word storage location that is to contain complex data, and 
that the variable VAR2 is to be associated with a 4-word double 
precision storage location. 

The IMPLICIT statement (Section 7.1) has a broader scope: it states 
that any variable having a name that begins with a specified letter, 
or any letter within a specified range, is to represent a specified 
data type, in the absence of an explicit type declaration. 

The data type of a variable can be explicitly specified only once. An 
explicit type specification takes precedence over the type implied by 
an IMPLICIT statement. 



2.5.2 Data Type by Implication 

In the absence of any IMPLICIT statements, all variables having names 
beginning with I, J, K, L, M, or N are assumed to represent integer 
data. Variables having names beginning with any other letter are 
assumed to be real variables. For example: 



Real Variables 



ALPHA 



Integer Variables 
KOUNT 



BETA 
TOTAL 



ITEM 
NTOTAL 



2.6 ARRAY S 

An array is a group of contiguous storage locations associated with a 
single symbolic name, the array name. The individual storage 
locations, called array elements, are referenced by a subscript 
appended to the array name. Subscripts are discussed in Section 
2.6.2. 
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An array can have from one to seven dimensions. A column of figures 
is an example of a 1-d imensional array. Several columns of figures 
would represent a 2-dimensional array; to refer to a specific value 
in chis array, both its entry (or row) number and its column number 
must be specified. If this cable of figures covered several pages, 
Che array would be 3-dimensional . To locate a value in a 
3~dimensional array, the row number, a column number, and a page (or 
level) number must be specified. 



The following FORTRAN statements escablish arrays: 

1. Type declaration statements (Section 7.2), 

2. DIMENSION statement (Section 7.3), 

3. COMMON scatement (Section 7.4), and 

4. VIRTUAL statement (Appendix D) 

These statements, containing array declarators (array declarators are 
discussed in the following sub-section) , define the name of che array, 
Che number of dimensions in the array, and the number of elements m 
each dimension. 



2.6.1 Array Declarators 

An array declarator specifies the symbolic name that identifies an 
array wichin a program unit and indicates the properties of chac 
array. 

An array declarator has the forms 

a (d[,d] ...) 

a is the symbolic name of the array — the array name. 
(The form of a symbolic name is given in Section 2.2.) 

d is a dimension declarator. 

The number of dimension declarators indicates the number of dimensions 
in the array. The minimum number of dimensions is one and the maximum 
number is seven. 

The value of a dimension declarator specifies the number of elements 
in that dimension. For example, a dimension declarator value of 50 
indicaces that the dimension contains 50 elements. The dimension 
declarators can be constant or variable. Variable dimension 
declarators are used to define adjustable arrays (see Section 2.6.6). 
The number of elements in an array is equal to the product of che 
number of elements in each dimension. 

An array name can appear in only one array declarator within a program 

un i t . 
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2.6.2 Subscripts 

A subscript qualifies an array name. A subscript is a list of 
subscript expressions enclosed in parentheses that determines which 
element in the array is referenced. The subscript is appended to the 
array name it qualifies. 

A subscript has the form: 

(s[,s] . . .) 

s is a subscript expression. 

In any subscripted array reference, there must be one subscript 
expression for each dimension defined for that array (one for each 
dimension declarator). For example, the following entry could be used 
to refer to the element located in the first row, third column, second 
level of the array COS in Figure 2-1 (which is the element occupying 
memory position 16) . 

COS (1,3,2) 

Each subscript expression can be any valid arithmetic expression. If 
the value of a subscript expression is not of type Integer, it is 
converted to Integer before use. 



2.6.3 Array Storage 

As discussed earlier in this section, it is convenient to think of the 
dimensions of an array as rows, columns, and levels or planes. 
However, the FORTRAN system always stores arrays in memory as a linear 
sequence of values. A 1-dimensional array is stored with its first 
element in the first storage location and its last element in the last 
storage location of the sequence. A multi-dimensional array is stored 
such that the leftmost subscripts vary most rapidly. This is called 
the "order of subscript progression". For example, consider the 
following array declarators and the arrays that they create: 
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1-Dimensional Array ARC (6) 



1| ARC (1)1 2| ARC (2) | 3|ARC(3) |4| ARC(4)| 5TaRC(5) |6|ARC(6) 
L 1 Memory Positions 



2-Dimensional Array TAN(3,4) 



1 


TAN(1,1) 


4 


TAN(1,2) 


7 


TAN(1,3) 


10 


TAN(1,4) 


T 


ta:^(2,1) 


5 


TAN(2,2) 


f) 


TAN (2, 3) 


11 


TAN(2,4 


3 


TA14(3,1) 


6 


TAN (3,2) 


9 


TAN(3,3) 


12 


TAN(3,4 



Memory Positions 



3-Dimensional Array COS (3,3,3) 



COS (1,1.1) 



C0S(2,1,1) 



C0S(3,1,1) 



T?r 



C0S(1,1,2) 



l l|COS(2,l,2) 

COS ( 1,2, n 



COS(2^2,l) 



COS(3,2,l) 



TJ 



20 



TI 



14 



COS (1,1,37 



COS 



COS 






COS 



CC S(2,2,2) 



COS (2,3,1) 



COS (3,3,1) 



22 



23 

T6" 



17 



18 



COS(l,2,3) 



COS 



COS 



S(2,2,3) 
S(l!3l2i 



COS(2,3,2) 
COS (3, 3, 2) 



25 



26 



27 



COS(l,3,3l 



COS(2.3,3) 



COS (3,3,3) 



Memory Positions 



Figure 2-1 
Array Storage 



2.6.4 Data Type of an Array 

The data type of an array is specified in the same way as the data 
type of a variable; that is, implicitly by the initial letter of the 
name, or explicitly by a type declaration statement. 

All of the values in an array are of the same data type. Any value 
assigned to an array element is converted to the data type of the 
array. If an array is named in a DOUBLE PRECISION statement, for 
example, the compiler allocates a 4-word storage location for each 
element of the array. When a value of any type is assigned to any 
element of that array, it is converted to double precision. 

The compiler stores L0GICAL*1 array elements in adjacent bytes. 



2.6.5 Array References without Subscripts 

In the following types of statements, an array name can appear without 
a subscript to specify that the entire array is to be used (or 
defined) . 
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Type declaration statements 
COMMON statement 
DATA statement 
EQUIVALENCE statement 
FUNCTION statement 
SUBROUTINE statement 
CALL statement 
Input/Output statements 

Unsubscripted array names can also be used as actual arguments. The 
use of unsubscripted array names in all other types of statements is 
illegal . 



2.6.6 Ad justable Ar rays 

Adjustable arrays are used within a single subprogram to process 
arrays with different dimension bounds by specifying the bounds as 
well as the array name as subprogram arguments. 

An adjustable array declarator has variable dimension declarators. In 
such an array declarator, each dimension declarator must be either an 
integer constant or an integer dummy argument, and the array name thus 
declared must also appear as a dummy argument. (Consequently, 
adjustable array declarators can not be used in main program units.) 

On entry to a subprogram containing adjustable array declarators, each 
dummy argument used in a dimension declarator must become associated 
with an integer actual argument. The values of the associated actual 
arguments are used together with any constants appearirq in the array 
declarators to form an effective array declarator which determines the 
properties of the adjustable array for that execution of the 
subprogram. 

The values of dummy arguments used in adjustable array declarators 
must not be changed within the subprogram. 

The effective size of the dummy array must be equal to or less then 
the actual size of the associated array. 

The function in the following example computes the sum of the elements 
of a two-dimensional array. Note the use of the parameters M and N to 
control the iteration. 

FUNCTION SUM(A,M,N) 
DIMENSION A{M,N) 
SUM =0.0 
DO 10, I = 1,M 
DO 10, J = 1,N 
10 SUM = SUM + A(I,J) 
RETURN 
END 
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Following are sample calls on SUM: 

DIMENSION Al(10,35), A2{3,56) 
SUMl = SUM{A1,10,35) 
SUM2 = SUM(A2,3,56) 
SUM3 = SUM{A1,10,10) 







s^i|feWh^ ""SUff;' ' THe IMliSifii.fes W l *tn^ 3>m ndt affect fcfta^^ 



2.7 EXPRESSIONS 

An expression represents a single value. Ic can be a single basic 
component, such as a constant or variable, or a combination of basic 
components with one or more operators. Operators specify computations 
CO be performed, using the values of the basic components, to obtain a 
single value. 

Expressions can be classified as arithmetic, relational, or logical. 
Arichmetic expressions yield numeric values; relational and logical 
expressions produce logical values. 



2.7.1 Arithmetic Expressions 

Arithmetic expressions are formed wich arithmetic elements and 
arichmetic operators. The evaluation of such an expression yields a 
single numeric value. 
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An arithmetic element may be any of the following; 

1. A numeric constant 

2. A numeric variable 

3. A numeric array element 

4. An arithmetic expression enclosed in parentheses 

5. An arithmetic function reference (Functions and function 
references are described in Chapter 8.) 

The term "numeric" in these cases can also be interpreted to include 
logical data, since data of this type is treated as integer data when 
used in an arithmetic context. 

Arithmetic operators specify a computation to be performed using the 
values of arithmetic elements; they produce a numeric value as a 
result. The operators and their meanings are: 



Operator 

* 

/ 

+ 



Function 
Exponentiation 
Multiplication 
Division 

Addition and Unary Plus 
Subtraction and Unary Minus 



The above are called binary operators, because each is used in 
conjunction with two elements. The + and - symbols can also be used 
as unary operators when written immediately preceding an arithmetic 
element to denote a positive or negative value. 

Any arithmetic operator can be used in conjunction with any valid 
arithmetic element except for certain restrictions noted below. 

A value must be assigned to a variable or array element before it can 
be used in an arithmetic expression. 

The following table illustrates the permitted combinations of base and 
exponent data type for the exponentiation operator. 



BASE 


EXPONENT 












Integer 


Real 


Double 


Complex 


Integer 


Yes 


No 


No 


No 


Real 


Yes 


Yes 


Yes 


No 


Double 


Yes 


Yes 


Yes 


No 


Complex 


Yes 


No 


No 


No 
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In addition, a negative element can only be exponentiated by an 
integer element; an element having a value of zero cannot be 
exponentiated by another zero-value element. 

In any valid exponentiation, the result is of the same data type as 
the base element, except in the case of a real base and a double 
precision exponent; the result in this case is double precision. 

Arithmetic expressions are evaluated in an order determined by a 
precedence associated with each operator. The precedence of the 
operators is: 

Operator Precedence 

** First 

* and / Second 

+ and - Third 

Whenever two or more operators of equal precedence (such as + and -) 

appear, they can be evaluated in any order chosen by the compiler so 

long as the actual order of evaluation is algebraically equivalent to 

a left to right order of evaluation. Exponentiation, however, is 

evaluated right to left. For example A**B**C is evaluated as 
A**(B**C) . 



2.7.1.1 Use of Parentheses - Parentheses can be used to override the 
normal evaluation order. An expression enclosed in parentheses is 
treated as a single arithmetic element. That is, it is evaluated 
first to obtain its value, then that value is used in the evaluation 
of the remainder of the larger expression of which it is a part. An 
example of the effect of parentheses is shown below (the numbers below 
the operators indicate the order in which the operations are 
performed) . 



4 + 3*2-6/2 = 7 

t + + + 

2 14 3 



(4+3) *2-6/2=ll 

+ t + T 



(4 + 3*2-6) /2 

t + + + 

2 13 4 



((4+3) * 2 - 6) / 

t t + + 

12 3 4 



Evaluation of expressions within parentheses takes place according to 
the normal order of precedence. 
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Nonessential parentheses, such as in the expression 

4 + (3*2) - (6/2) 

have no effect on the evaluation of the expression. 

The use of parentheses to specify the evaluation order is often 
important in high accuracy numerical programs where evaluation orders 
that are algebraically equivalent might not be computationally 
equivalent when carried out on a computer. 



2.7.1.2 Data Type of an Arithmetic Expression - If every element in 
an arithmetic expression is of the same data type, the value produced 
by the expression is also of that type. If elements of different data 
types are combined in an expression, the evaluation of that expression 
and the data type of the resulting value are dependent on a rank 
associated with each data type. The rank assigned to each data type 
is as follows: 



Data Type 


Rank 


Logical 


1 (Low) 


Integer 


2 


Real 


3 


Double Precision 


4 


Complex 


5 (High) 



The data type of the value produced by an operation on two arithmetic 
elements of differing type is the same as that of the highest-ranked 
element in the operation. The data type of an expression is the same 
as the data type of the result of the last operation in that 
expression. The way in which the data type of an expression is 
determined is as follows: 

1. Integer operations - Integer operations are performed only on 
integer elements. (When used in an arithmetic context, octal 
constants and logical entities are treated as integers.) In 
integer arithmetic, any fraction that can result from 
division is truncated, not rounded. For example, the value 
of the expression 

1/3 + 1/3 + 1/3 

is zero, not one. 

2. Real operations - Real operations are performed only on real 
elements or a combination of real and integer elements. Any 
integer elements present are converted to real type by giving 
each a fractional part equal to zero. The expression is then 
evaluated using real arithmetic. Note, however, that in the 
statement Y = (I/J)*X, an integer division operation is 
performed on I and J and a real multiplication is performed 
on the result and X. 
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Double Precision operations - Any real or integer element in 
a double precision operation is converted to double precision 
type by making the existing element the most significant 
portion of a double precision datum; the least significant 
portion is zero. The expression is then evaluated in double 



precision arithmetic. 



NOTE 



The conversion of a real element to 
double precision does not increase its 
accuracy. For example, the real number 
0.3333333 becomes 0.3333333000000000 
when converted, not 0.3333333333333333. 
Also note that real and double precision 
elements are only approximate 
representations of actual numbers. 
Values resulting from a real or double 
precision expression are only as 
accurate as the degree of precision for 
that data type. 



Complex operations - In an operation that contains any 
complex element, integer elements are converted to real type 
as previously described. Double precision elements are 
converted to real type by the rounding of the least 
significant portion. The real element thus obtained is 
designated as the real part of a complex number; the 
imaginary part is zero. The expression is then evaluated 
using complex arithmetic and the resulting value is of type 



complex. 



2.7.2 Relational Expressions 

A relational expression consists of two arithmetic expressions 
separated by a relational operator. The value of the expression is 
either true or false, depending on whether or not the stated 
relationship exists. 

A relational operator tests for a relationship between two arithmetic 
expressions. These operators are: 



Operator 


Relationship 


.LT. 


Less than 


.LE. 


Less than or equal to 


.EQ. 


Equal to 


.NE. 


Not equal to 


.GT. 


Greater than 


.GE. 


Greater than or equal to 



The delimiting periods are part of each operator and must be present. 



2-20 



FORTRAN STATEMENT COMPONENTS 

Complex expressions can be related by the .EQ. and .NE. operators 
only. (If one complex expression is present, the other is converted 
to complex type.) Complex entities are equal if their corresponding 
real and imaginary parts are both equal. 

In a relational expression, the arithmetic expressions are evaluated 
first to obtain their values. Those values are then compared to 
determine if the relationship stated by the operator exists. For 
example, the expression: 

APPLE+PEACH .GT. PEAR+ORANGE 

States the relationship, "The sum of the real variables APPLE and 
PEACH is greater than the sum of the real variables PEAR and ORANGE." 
If that relationship does in fact exist, the value of the expression 
is true; if not, the expression is false. 

All relational operators have the same precedence. Thus, if two or 
more relational expressions appear within an expression, the 
relational operators are evaluated from left to right. Arithmetic 
operators have a higher precedence than relational operators. 

Parentheses can be used to alter the evaluation of the arithmetic 
expressions in a relational expression exactly as in any other 
arithmetic expression; but since arithmetic operators are evaluated 
before relational operators, it is unnecessary to enclose the entire 
arithmetic expression in parentheses. 

When two expressions of different data- types are compared by a 
relational expression, the value of the expression having the 
lower-ranked data type is converted to the higher-ranked data type 
before the comparison is made. 



2 . 7 „ 3 Logical Expressions 

A logical expression may be a single logical element, or may be a 
combination of logical elements and logical operators. A logical 
expression yields a single logical value, true or false. 

A logical element can be any of the following: 

1. An Integer or Logical constant 

2. An Integer or Logical variable 

3. An Integer or Logical array element 

4. A relational expression 

5. A logical expression enclosed in parentheses 

6. An Integer or Logical function reference (Functions and 
function references are described in Chapter 8.) 



2-21 



FORTRAN STATEMENT COMPONENTS 

The logical operators are: 

Operator Example Meaning 

.AND. A .AND. B Logical conjunction. The expression is true 

if, and only if, both A and B are true. 

•OR. A .OR. B Logical disjunction (inclusive OR). The 

expression is true if, and only if, either A 
or B, or both, is true. 

.XOR. A .XOR. B Logical exclusive OR. The expression is 

true if A is true and B is false, or vice 
versa, but is false if both elements have 
the same value. 

.EQV. A .EQV. B Logical equivalence. The expression is true 

if, and only if, both A and B have the same 
logical value, whether true or false. 

.NOT. .NOT. A Logical negation. The expression is true 

if, and only if, A is false. 

The delimiting periods of logical operators must be present. 

When a logical operator is used to operate on logical elements, the 
resulting value is of type logical. When a logical operator is used 
with integer elements, the logical operation is carried out bit-by-bit 
on the corresponding bits of the internal (binary) representation of 
the integer elements. The resulting value has type integer. When 
integer and logical values are combined with a logical operator, the 
logical value is first converted to an integer value, then the 
operation is carried out as for two integer elements. The resulting 
type is integer. 

Evaluation of a logical expression is performed according to an order 
of precedence assigned to its operators. Some logical expressions can 
be evaluated without evaluating all sub-expressions; for example, if 
A is .FALSE. then the expression A .AND. (F(X,Y) .GT. 2.0) .AND. B 
is .FALSE.. The value of the expression can be determined by testing 
A without evaluating F(X,Y). With this method of evaluation, the 
function subprogram F is not necessarily called and side-effects 
resulting from the call can not occur. 

A summary of all operators that may appear in a logical expression, 
and the order in which they are evaluated follows. 
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Operator 


Evaluated 


** 


First 


*,/ 


Second 


+ ,- 


Third 


Relational 




Operators 


Fourth 


.NOT. 


Fifth 


.AND. 


Sixth 


.OR. 


Seventh 


.XOR.,.EQV. 


Eighth 



Operators of equal rank are evaluated from left to right. An example 
of the sequence in which a logical expression is evaluated is as 
follows: 

A*B+C*ABC .EQ. X*y+DM*ZZ .AND. .NOT. K*B .GT. TT 

is evaluated as: 

( ( (A*B) + (C*ABC) ) .EQ. ( (X*Y) + (DM*ZZ ) ) ) .AND. (.NOT. ( (K*B) .GT.TT) ) 



Parentheses may be used to alter the normal sequence of evaluation, 
just as in arithmetic expressions. 

Two logical operators cannot appear consecutively, except where the 
second operator is .NOT., 
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Assignment statements define the value of a variable or array element 
by evaluating an expression and assigning the resulting value to the 
variable or array element. 

There are three types of assignment statements: 

1. Arithmetic assignment statement 

2. Logical assignment statement 

3. ASSIGN statement 

3 . 1 ARITHMETIC ASSIGNMENT STATEMENT 

The arithmetic assignment statement assigns the value of the 
expression on the right of the equal sign to the variable or array 
element on the left of the equal sign. The previous value of the 
variable, if any, is lost. 

The arithmetic assignment statement has the form: 

V = e 

V is a numeric variable name or array element name. 

e is an expression. 

The equal sign does not mean "is equal to", as in mathematics. It 
means "is replaced by". Thus, the statement: 

KOUNT = KOUNT + 1 

means, "Replace the current value of the integer variable KOUNT with 
the sum of that current value and the integer constant 1". 

Although the symbolic name to the left of the equal sign can be 
undefined, values must have been previously assigned to all symbolic 
references in the expression. 

The expression must yield a value that conforms to the requirements of 
the variable or array element to which it is to be assigned (for 
example, a real expression that produces a value greater than 32767 is 
illegal if the entity on the left of the equal sign is an INTEGER*2 
variable) . 
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If the data type of the variable or array element on the left of the 
equal sign is the same as that of the expression on the right, the 
statement assigns the value (3irectly. If the data types are 
different, the value of the expression is converted to the data type 
of the entity on the left of the equal sign before it is assigned. A 
summary of data conversions on assignment is shown in Table 3-1. 



Table 3-1 
Conversion Rules for Assignment Statements 



^^--.^^ 


EXPRESSION (E) 


VARIABLE 
OR ARRAY 

ELEMENT 
(V) 


INTEGER, 

LOGICAL, 

OR 

OCTAL CONSTANT 


REAL 


DOUBLE 
PRECISION 


COMPLEX 


INTEGER 


Assign E to V 


Truncate E to 
integer and 
assign to V 


Truncate E to 
integer and 
assign to V 


Truncate real 
part of E to 
integer and 
assign to V; 
imaginary part 
of E is not used 


REAL 


Append fraction 
(.0) to E and 
assign to V 


Assign E to V 


Assign MS 
portion of E to 
V; LS portion 
of E is rounded 


Assign real 
part of E to V; 
imaginary part 
of E is not used 


DOUBLE 
PRECISION 


Append fraction 
(.0) to E and 
assign to MS 
portion of V; 
LS portion of 
V is zero 


Assign E to MS 
portion of V; 
LS portion of 
V is zero 


Assign E to V 


Assign real 
part of E to 
MS portion of 
V; LS portion 
of V is zero, 
imaginary part 
of E is not used 


COMPLEX 


Append fraction 
(.0) to E and 
assign to real 
part of V; 
imaginary part 
of V is 0.0 


Assign E to 
real part of V; 
imaginary part 
of V is 0.0 


Assign MS 
portion of E 
to real part of 
Vj LS portion 
of E is rounded; 
imaginary part 
of V is 0.0 


Assign E to V 


MS - Most Significant (high-order) 
LS = Least Significant (low-order) 
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Examples 

Valid Statements 

BETA = -l./(2.*X)+A*A/(4.*(X*X)) 

PI = 3.14159 

SUM = SUM+1. 

Invalid Statements 

3.14 = A-B (Entity on the left must be a 

variable or array element.) 

-J = 1**4 (Entity on the left must not be 

signed. ) 

ALPHA = ((X+6)*B*B/(X-y) (Invalid; left and right 

parentheses do not balance.) 



3.2 LOGICAL ASSIGNMENT STATEMENT 

The logical assignment statement is similar to the arithmetic 
assignment statement, but operates with logical data. The logical 
assignment statement evaluates the expression on the right side of the 
equal sign and assigns the resulting logical value to the variable or 
array element on the left. 

The logical assignment statement has the form: 

v = e 

V is a variable or array element of type Logical. 

e is a logical expression. 

The variable or array element on the left of the equal sign must be of 
type Logical; its value can be undefined. 

Values, either numeric or logical, must have been previously assigned 
to all symbolic references that appear in the expression. The 
expression must yield a logical value. 

Examples 

PAGEND = .FALSE. 

PRNTOK = LINE . LE . 132 .AND. .NOT. PAGEND 

ABIG = A .GT. B .AND. A .GT. C .AND. A .GT. D 
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ASSIGN 



3.3 ASSIGN STATEMENT 

The ASSIGN statement is used to associate a statement label with an 
integer variable. The variable can then be used as a transfer 
destination in a subsequent assigned GO TO statement (see Section 
4.1.3) . 

The ASSIGN statement has the form: 

ASSIGN s TO V 

s is the label of an executable statement in the same program 
unit as the ASSIGN statement. (It must not be the label of a 
FORMAT statement.) 

V is an integer variable. 

The ASSIGN statement assigns the statement number to the variable in a 
manner similar to that of an arithmetic assignment statement, with one 
exception: the variable becomes defined for use as a statement label 
reference and becomes undefined as an integer variable. 

The ASSIGN statement must be executed before the assigned GO TO 
statement (s) in which the assigned variable is to be used. The ASSIGN 
statement and the assigned GO TO statement (s) must occur in the same 
program unit. 

The statement 

ASSIGN 100 TO NUMBER 

associates the variable NUMBER with the statement label 100. 
Arithmetic operations on the variable, such as in the statement 

NUMBER = NDMBER+1 

then become invalid, since a statement label cannot be altered. The 
statement : 

NUMBER = 10 

dissociates NUMBER from statement 100, assigns it an inteaer value 10, 
and returns it to its status as an integer variable. It can no longer 
be used in an assigned GO TO statement. 

Examples 

ASSIGN 10 TO NSTART 

ASSIGN 99999 TO KSTOP 

ASSIGN 250 TO ERROR (ERROR must have been defined as an 

integer variable.) 
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Stcitements are normally executed in the order in which they are 
written. However, it is frequently desirable to interrupt the normal 
program flow by transferring control to another section of the program 
or to a subprogram. Transfer of control from a given point in the 
program may occur every time that point is reached in the program 
flow, or may be based on a decision made at that point. 

Transfer of control, whether within a program unit or to another 
program unit, is performed by control statements. These statements 
also govern iterative processing, suspension of program execution, and 
program termination. The various types of control statements are: 

GOTO 

IF 

DO 

CONTINUE 

CALL 

RETURN 

PAUSE 

STOP 

END 

GO TC 

4 . 1 GO TO STATEMENTS 

GO TO statements transfer control within a program unit, either to the 
same statement every time or to one of a set of statements, based on 
the value of an expression. 

The three types of GO TO statements are: 

1. Unconditional GO TO statement 

2. Computed GO TO statement 

3. Assigned GO TO statement 
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4.1.1 Unconditional GO TO Statement 

The unconditional GO TO statement transfers control to the same 
statement every time it is executed. 

The unconditional GO TO statement has the form: 

GO TO s 

s is the label of an executable statement in the same program 
unit as the GO TO statement. 

The unconditional GO TO statement transfers control to the statement 
identified by the specified label. The statement label must identify 
an executable statement in the same program unit as the GO TO 
statement. 



Examples 

GO TO 7734 

GO TO 99999 

GO TO 27.5 (Invalid; the statement label is improperly 
formed. ) 



4.1.2 Computed GO TO Statement 

The computed GO TO statement transfers control to a statement based on 
the value of an expression within the statement. 

The computed GO TO statement has the form: 

GO TO (slist) [,] e 

slist is a list of one or more executable statement labels 
separated by commas. The list of labels is called the 
transfer list. 

e is an arithmetic expression the value of which falls within 
the range 1 to n (where n is the number of statement labels 
in the transfer list) . 

The computed GO TO statement evaluates the expression e and, if 
necessary, converts the resulting value to integer type. The GO TO 
statement then transfers control to the e'th statement label in the 
transfer list. That is, if the list contains (30,20,30,40), and the 
value of e is 2, the GO TO statement transfers control to statement 
20, and so on. 

If the value of the expression is less than 1, or greater than the 
number of labels in the transfer list, control transfers to the first 
executable statement following the computed GO TO. 
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Examples 

GO TO (12,24,36) , INCHES 

GO TO (320,330,340,350,360) SITU(J,K)+1 

4.1.3 Assigned GO TO Statement 

The assigned GO TO statement transfers control to a statement label 
that is represented by a variable. Because the relationship between 
the variable and a specific statement label must be established by an 
ASSIGN statement, the transfer destination may be changed, depending 
upon which ASSIGN statement was most recently executed. 

The assigned GO TO statement has the form: 

GO TO v[[,] (slist)] 

V is an integer variable. 

slist (when present) is a list of one or more executable 
statement labels separated by commas. 

The assigned GO TO statement transfers control to the statement whose 
label was most recently assigned to the variable v by an ASSIGN 
statement. 

The variable v must be of Integer type and must have been assigned a 
statement label value by an ASSIGN statement (not an arithmetic 
assignment statement) prior to the execution of the GO TO statement. 

The assigned GO TO statement and its associated ASSIGN statement (s) 
must exist in the same program unit. Statements to which control is 
transferred must be executable statements in the same program unit. 

Examples 

GO TO I GO 

GO TO INDEX, (300,450,1000,25) 

^'^ iPOATRAN IV-f.LUS, If , the (statement label value of v is not present 
i^H the list slist ian\h H list is specified) , control transfers to the 
-r-iiext ^jcecAJtatile statement following the assigned <30 TO statement. 



IF 



4.2 IF STATEMENTS 

An IF statement causes a conditional control transfer or the 
conditional execution of a statement. There are two types of IF 
statements: 

1. Arithmetic IF statement 

2. Logical IF statement 
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In either type, the decision to transfer control or to execute the 
statement is based on the evaluation of an expression within the IF 
statement . 



4.2.1 Arithmetic IF Statement 

The arithmetic IF statement is used for conditional control transfers. 
It can transfer control to one of three statements, based on the value 
of an arithmetic expression. 

The arithmetic IF statement has the form: 

IF (e) si, s2, s3 

e is an arithmetic expression. 

sl,s2,s3 are the labels of executable statements in the same program 
unit. 

All three labels must be present. They need not refer to three 
different statements. If desired, one or two labels can refer to the 
statement that immediately follows the IF statement. 

The arithmetic IF statement first evaluates the expression in 
parentheses and then transfers control to one of the three statement 
labels in the transfer list, as follows: 

If the Value is; Control Passes to; 

Less than Label si 

Equal to Label s2 

Greater than Label s3 



Examples 



IF (THETA-CHI) 50,50,100 



This statement transfers control to statement 50 if the real variable 
THETA Is less than or equal to the real variable CHI. Control passes 
to statement 100 only if THETA is greater than CHI. 

IF (NUMBER/2*2-NUMBER) 20,40,20 

This statement transfers control to statement 40 if the value of the 
integer variable NUMBER is even and to statement 20 if it is odd. In 
this case, the third statement label must be present although it is 
not used, since the expression can have only negative or zero values. 



4.2.2 Logical IF Statement 

A logical IF statement causes a conditional statement execution. The 
decision to execute the statement is based on the value of a logical 
expression within the statement. 
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The logical IF statement has the form: 

IF (e) St 

e is a logical expression. 

St is a complete FORTRAN statement. The statement can be any 
executable statement except a DO statement or another logical 
IF statement. 

The logical IF statement first evaluates the logical expression. If 
the value of the expression is true, the contained statement is 
executed. If the value of the expression is false, control transfers 
to the next executable statement following the logical IF without 
executing the contained statement. 

Examples 

IF (J .GT. 4 .OR. J .LT. 1) GO TO 250 

IF (REF(J,K) .NE. HOLD) REF(J,K) = REF ( J,K) * (-1D0) 

IF (ENDRUN) CALL EXIT 

DO 

4.3 DO STATEMENT 

DO statements are used to specify iterative processing. The DO 
statement causes the statements in its range to be repeatedly executed 
a specified number of times. 

The DO statement has the form: 

DO s[,] i=el,e2[,e3] 

s is the label of an executable statement. The statement 
must physically follow in the same program unit. 

i is an integer variable. 

el,e2,e3 are integer expressions. 

The variable i is called the control variable of the DO and el,e2,e3 
are called the initial, terminal, and increment parameters 
respectively. If the increment parameter is omitted, a default 
increment value of 1 is used. 

The terminal statement of a DO loop is identified by the label that 
appears in the DO statement. It must not be a GO TO statement, an 
arithmetic IF statement, a RETURN statement, or another DO statement. 
A logical IF statement is acceptable as the terminal statement, 
provided it does not contain any of the above statements. 

The statements that follow the DO statement, up to and including the 
terminal statement are in the range of the DO loop. 
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In FORTRAN iv-PLUS> th« control variable c»n be Of type TN*rEGER*3, 
INTEGER*4i, REAL, ot DOUBLE PRECT$10N, iffiif initiijftljr, tecainal , and 
increment parameters can be of any type and *ft*|r conver feed , before «»er 
to the tjfpe of the control variable, if necessary. ^^ / 

The DO statement first evaluates the expressions el, e2, e3 to 
determine values for the initial, terminal, and increment parameters. 
The value of the initial parameter is then assigned to the control 
variable. The executable statements in the range of the DO loop are 
then executed repeacedly. 

If the increment parameter is positive, the value of the terminal 
parameter must not be less than that of the initial parameter. 
Conversely, if the increment parameter is negative, the value of the 
terminal parameter must not be greater than that of the initial 
parameter. The value of the increment parameter must not be zero. 

The number of executions of the DO range, called the iteration count, 
is given by 



e2 - el 



e3 



+ 1 



where [X] represents the largest integer whose magnitude does not 
exceed che magnitude of X and whose sign is the same as that of X. 

If the iteration count is zero or negative, then the loop is executed 
once . 



4.3.1 DO Iteration Control 

For each iteration of the DO loop, following execution of the terminal 
statement, the DO iteration control is executed: 

1. The value of the increment parameter is algebraically added 
to the control variable. 

2. The iteration count is decremented. 

3. If the iteration count value is greater than zero, control is 
transferred to the first executable statement following the 
DO statement for another iteration of the range. 

4. If the iteration count is zero, execution of the DO 
terminates. 

The execution of a DO can also be terminated by a statement within the 
range that transfers control outside the loop. The control variable 
of the DO remains defined with its current value. 

When execution of a DO loop terminates, if other DO loops share this 
terminal statement, control transfers outward to the next most 
enclosing DO loop in the DO nesting structure (Section 4.3.2). If no 
other DO loop shares this terminal statement, or if this DO is the 
outermost DO, control transfers to the first executable statement 
following the terminal statement. 
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The value of the control variable, terminal parameter, or increment 
parameter must not be altered within the range of the DO statement. 
The control variable is available for reference as a variable within 
the range. 

itii FORTRAN TV-PLUS, the terminal and increment parameters can be 
l-tionSlfied within the loop without affecting the iteration courtt. 

WS'- . --u '. ' . . - ■ , - ,..•..-• 

The range of a DO loop can contain other DO statements, as long as 
those "nested" DO loops conform to certain requirements (see Section 
4.3.2) . 

Control can be transferred out of a DO loop, but cannot be transferred 
into a loop from elsewhere in the program. Exceptions to this rule 
are described in Sections 4.3.3 and 4.3.4. 

Examples 

DO 100 K=l,50,2 (25 iterations, K=49 during final 

iteration) 

DO 350 J=50,-2,-2 (27 iterations, J=-2 during final 

iteration) 

DO 25 TVAR==1,5 (5 iterations, IVAR=5 during final 

iteration) 

DO NUMBER=5,40, 4 (Invalid; statement label missing) 

DO 40 M=2.10 (Invalid; decimal point instead of comma) 

The last example illustrates a common clerical error. It is a valid 
arithmetic assignment statement in the FORTRAN language: 

DO40M = 2.10 



4.3.2 Nested DO Loop s 

A DO loop may contain one or more complete DO loops. The range of an 
inner nested DO must lie completely within the range of the next outer 
loop. Nested loops may share the same terminal statement. 
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Correctly Nested 
DO Loops 



DO 45 K=»l,10 



DO 35 L=2,50,2 



L 35 CONTINUE 



DO 45 M=l,20 



L45 CONTINUE 



Incorrectly Nested 
DO Loops 



DO 15 K=l,10 



DO 25 L-1,20 



15 CONTINUE 



DO 30 M»l,15 



25 CONTINUE 



1-30 CONTINUE 



Figure 4-1 
Nesting of DO Loops 



4.3.3 Control Transfers in DO Loops 

Within a nested DO loop structure, control can transfer from an inner 
loop to an outer loop. A transfer from an outer loop to an inner loop 
is illegal. 

If two or more nested DO loops share the same terminal statement, 
control can be transferred to that statement only from within the 
range of the innermost loop. Any other transfer to that statement 
constitutes a transfer from an outer loop to an inner loop because the 
shared statement is part of the range of the innermost loop. 



4.3.4 Extended Range 

A DO loop is said to have an extended range if it contains a control 
statement that transfers control out of the loop and if, after the 
execution of one or more statements, another control statement returns 
control back into the loop. In this way the range of the loop is 
extended to include all of the executable statements between the 
destination statement of the first transfer and the statement that 
returns control to the loop. 
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Valid 
Control Transfers 



Extended 
Range 



DO 35 K=l,10 
DO 15 I.=2,20 
GO TO 20 -s. 
L 15 CONTINUE j 
20 A»B+C -^ 
DO 35 M«l,15 
GO TO 50 
30 X=A*D 
*- 35 CONTINUE 

• 

50 D=E/F 



GO TO 30 




Invalid 
Control Transfers 



GO TO 20 

DO 50 K=l,10 

20 A=B+C 

DO 35 L=2,20 

30 D=E/F 

35 CONTINUE 

GO TO 40 --^ 
DO 45 iM=l,15j 

40 X=A*D -*-^ 
L 45 CONTINUE 

50 CONTINUE 
GO TO 30 



Figure 4-2 
Control Transfers and Extended Range 



The following rules govern the use of a DO statement extended range: 

1. A transfer into the range of a DO statement is permitted 
only if the transfer is made from the extended range of that 
DO statement. 

2. The extended range of a DO statement cannot change the 
control variable or parameters of the DO statement. 



CONTI 



4.4 CONTINUE STATEMENT 



The CONTINUE statement simply transfers control to the next executable 
stcitement. It is used primarily as the terminal statement of a DO 
loop when that loop would otherwise end with a GO TO, arithmetic IF, 
or other prohibited control statement. 

The CONTINUE statement has the form: 

CONTINUE 



CALL 



4 . 5 CALL STATEMENT 

The CALL statement causes the execution of a SUBROUTINE subprogram; 
it can also specify an argument list for use by the subroutine. {The 
definition and use of subroutines is treated in detail in Chapter 8.) 
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The CALL statement has the form: 

CALL s[ ( [a] [, [a]] .. .)] 

s is the name of a SUBROUTINE subprogram, a user-written 

assembly language routine, or a DEC-supplied system 

subroutine, or a dummy argument associated with one of the 
above. 

a is an actual argument. Actual arguments are described fully 
in Section 8.1. 

The CALL statement associates the values in the argument list (if the 
list is present) with the dummy arguments in the subroutine and then 
transfers control to the first executable statement of the subroutine. 

The arguments in the CALL statement must agree in number, order, and 
data type with the dummy arguments in the subroutine definition. They 
can be variables, arrays, array elements, constants, expressions, 
alphanumeric literals, or subprogram names (if those names have been 
specified in an EXTERNAL statement, as described in Section 7.6). An 
unsubscripted array name in the argument list refers to the entire 
array. 

Examples 

CALL CURVE (BASE , 3 . 14159+X ,Y , LIMIT ,R (LT+2) ) 
CALL PNTOUT (A,N,'ABCD') 
CALL EXIT 

ETURN 

4.6 RETURN STATEMENT 

The RETURN statement is used to return control from a subprogram unit 
to the calling program unit. 

The RETURN statement has the form: 

RETURN 

When a RETURN statement in a FUNCTION subprogram is executed, it 
returns control to the statement that contains the function reference 
(see Section 8.2.2). When a RETURN statement in a SUBROUTINE 
subprogram is executed, it returns control to the first executable 
statement following the CALL statement which initiated execution of 
the subprogram. 

A RETURN statement must not appear in a main program unit. 
Example 

SUBROUTINE CONVRT (N ,ALPH , DATA , PRNT,K) 
DIMENSION DATA(N) ,PRNT(N) 
IF (N .LT. 10) GO TO 100 
DATA(K+2) = N-{N/10)*N 
N = N/10 
DATA(K+1) = N 

PRNTCK+2) = ALPH(DATA(K+2)+l) 
PRNT(K+1) = ALPH(DATA(K+1)+1) 
RETURN 
100 PRNT(K+2) = ALPH{N+1) 
RETURN 
END 
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4.7 PAUSE STATEMENT PAUS 

The PAUSE Statement temporarily suspends program execution to permit 
some action on the part of the user. 

The PAUSE statement has the form: 

PAUSE [disp] 

disp is a decimal digit string containing one to five digits, an 
alphanumeric literal, or an octal constant. 

The PAUSE statement prints the display (if one has been specified) at 
the user's terminal, suspends program execution, and waits for user 
response. When the user enters the appropriate control command, 
program execution resumes with the first executable statement 
following the PAUSE. 

Examples 

PAUSE "13731 

PAUSE 'MOUNT TAPE REEL #3' 



4 . 8 STOP STATEMENT 

The STOP statement is used to terminate program execution. 

The STOP statement has the form: 

STOP [disp] 

disp is a decimal digit string containing one to five digits, an 
alphanumeric literal, or an octal constant. 

The STOP statement prints the display (if one has been specified) at 
the user's terminal, terminates program execution, and returns control 
to the operating system. 

Examples 

STOP 98 

STOP "7777 

99999 STOP 

STOP 'END OF RUN' 



STOP 
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END 

4.9 END STATEMENT 



The END scatement marks the end of a program unit. The END statement 
must be che last source line of every program unit. 

The END statement has the form: 

END 

In a main program, if control reaches the END statement, execution of 
che program is terminated; in a subprogram, a RETURN statement is 
implicicly executed. 
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CHAPTER 5 
INPUT/OUTPUT STATEMENTS 



5.1 OVERVIEW 

Input of data by a FORTRAN program is performed by READ 

statements. Output is performed by WRITE, TYPE, 

statements. Some forms of these statements are used in 

with format specifications which control translation and editing of 

the data between internal representation and character (readable) 

form. 



and ACCEPT 

and PRINT 

conjunction 



Each READ or WRITE statement contains a reference to the logical unit 
to or from which data transfer is to take place. A logical unit can 
be connected to a device or file. The TYPE and ACCEPT statements have 
no such reference, as they cause data transfer between the processor 
and an implicit logical unit that is normally connected to the user's 
terminal. Similarly, the PRINT statement outputs data to an implicit 
logical unit that is normally connected to the line printer. 

READ and WRITE Statements fall into the following categories: 



WRITE statements transmit 



Unformatted Sequential I/O 

Unformatted sequential READ and 
binary data without translation. 

Formatted Sequential I/O 

Formatted sequential READ and WRITE statements transmit 
character data using format specifications to control the 
translation of data to characters on output, and to internal 
form on input. 

Unformatted Direct Access I/O 

Unformatted direct access READ and WRITE statements transmit 
binary data without translation to and from direct access 
files . 



'5 C'4j4S ';":•-;- 
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5. List-Directed Sequential T/0 

List-directed sequential READ and WRITE statements transmit 
character data. The translation to internal form on input 
and to characters on output is controlled by the data type of 
che corresponding T/0 list element. 



Any type of READ or WRITE statement can transfer control to another 
statement if an error condition or end-of-file condition is detected. 

The auxiliary I/O statements, REWIND, FIND, and BACKSPACE do not 
perform data transfer, but do file positioning functions. The ENDFILE 
statement writes a special form of record that will cause an 
end-of-file condition (and END= transfer) when read by an input 
statement. The DEFINE FILE statement declares a logical unit co be 
connected to a direct access file and specifies the characteristics of 
the file. Finally, there are the ENCODE and DECODE statements, which 
perform data transfer and translation within memory. 



PDP-11 FORTRAN provides two additional auxiliary I/O statements: 
OPEN and CLOSE. The OPEN statement establishes a connection between a 
logical unit and a file or device and it declares the attributes 
needed for READ and WRITE operations. The CLOSE statement terminates 
the connection between a file or device and a logical unit. 



5.1.1 Input/Output Devices and Logical Unit Numbers 



PDP-11 FORTRAN uses the I/O services of the operating 

supports all peripheral devices that are supported 

system. I/O statements refer to I/O devices by means 

numbers. A logical unit number is an integer constant or variable 

with a positive value. 



system and thus 
by the operating 
of logical unit 



Some forms of I/O statements do not contain a logical unit number. 
These statements use an implicit logical unit number that is system 
specific. Consult the appropriate FORTRAN User's Guide for details. 



ma; 



"0^. 
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5.1.2 Format Specifiers 

Format specifiers are used in formatted I/O statements. A format 
specifier is either the statement label of a FORMAT statement or the 
name of an array containing Hollerith data interpretable as a format. 
Chapter 6 discusses FORMAT statements. 
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The asterisk character (*) can be used as a format specifier to denote 
list-directed formatting. Section 5.7 describes list-directed 
formats. 



5 . ;L . 3 Input/Output Records 

Input/Output statements transmit all data in terms ot records. The 
amount of information that can be contained in one record, and the way 
in which records are separated, depend on the medium involved. 

For unformatted I/O, the amount of data to be transmitted is specified 
by the I/O statement. The amount of information to be transmitted by 
a formatted I/O statement is determined jointly by the I/O statement 
and specifications in the associated format specification. 

The beginning of execution of an input or output statement initiates 
the transmission of a new record. If an input statement requires only 
part of a record, the excess portion of the record is lost. In the 
case of formatted sequential input or output, one or more additional 
records can be transmitted by a single I/O statement. 



5 . 2 INPUT/OUTPUT LISTS 

An I/O list specifies the data items to be manipulated by the 
statement containing the list. The I/O list of an input or output 
statement contains the names of variables, arrays, and array elements 
whose values are to be transmitted. In addition, the I/O list of an 
output statement can contain constants and expressions. 

An I/O list has the form: 

s[ ,s] . . . 

where each s is a simple list or an implied DO list. The I/O 
statement assigns input values to, or outputs values from, the list 
elements in the order in which they appear, from left to right. 



5.2.1 Simple Lists 

A simple I/O list element consists of a single variable, array 
reference, array element, constant, or expression. A simple I/O list 
consists either of a simple I/O list element or a group of two or 
more simple I/O list elements separated by commas and enclosed by 
parentheses. 

When an unsubscr ipted array name appears in an I/O list, a READ or 
ACCEPT statement inputs enough data to fill every element of the 
array; a WRITE, TYPE, or PRINT statement outputs all of the values 
contained in the array. Data transmission begins with the initial 
element of the array and proceeds in the order of subscript 
progression, with the leftmost subscript varying most rapidly. For 
example, if the unsubscr ipted name of a 2-dimensional array defined 
as : 

ARRAY (3, 3) 
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appears in a READ statement, that statement assigns values from the 
input record(s) to ARRAY (1 , 1) , ARRAY (2 , 1) , ARRAY (3 , 1) , APRAY (1 , 2) , 
and so on, through ARRAY(3,3). 

In a READ or ACCEPT statement, variables in the I/O list may be used 
in array subscripts later in the list. If, for example, the 
statement : 

READ (1,1250) J,K,ARRAY(J,K) 
1250 FORMAT ( II , X , II , X , F6 . 2) 

was execute(? and the input record contained the values: 

1,3,721.73 

the value 721.73 is assigned to ARRAY(1,3). The first input value is 
assigned to J and the second to K, thereby establishing the actual 
subscript values for ARRAY(J,K). Variables that are to be used as 
subscripts in this way must appear to the left of their use in the 
array subscript. 

Any valid expression can be included in an output statement I/O list. 
However, the expression must not cause further I/O operations to be 
attempted. A reference in an output statement I/O list expression to 
a function subprogram that itself performs input/output is an example 
of this prohibited case. 

An expression must not be included in an input statement I/O list 
except as a subscript expression in an array reference. 



5.2.2 Implied DO Lists 

Implied DO lists are used to specify iteration within an I/O list, to 
transmit only part of an array, or to transmit array elements in a 
sequence other than the order of subscript progression. This type of 
list element functions as though it were a part of an I/O statement 
that resides in a DO loop, and that uses the control variable of the 
imaginary DO statement to specify which value or values are to be 
transmitted during each iteration of the loop. 

An implied DO list has the form: 

(Iist,i=el,e2[,e3] ) 

list is an I/O list. 

i is a control variable definition. 

el,e2,e3 are parameter definitions. 

i, el, e2 and e3 have the same form as that used in the DO statement. 
The rules for the initial, terminal, and increment parameters, and for 
the control variable of an implied DO list are the same as those for 
the DO statement (see Section 4.3). An expression may be used for the 
initial, terminal, or increment parameter of an implied DO list, as 
long as it conforms to the rules in Section 4.3. The list may contain 
references to the control variable as long as the value of the control 
variable is not altered. The range of the implied DO is the list. 
For example: 
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WRITE (3,200) (A,B,C, 1=1,3) 

WRITE (6,15) L,M, (I, (J,P(I) ,Q(I,J) ,J=1,L) ,I=1,M) 

READ (1,75) ( ((ARRAY(M,N,I) , 1=2,8), N=2,8), M=2,8) 

The first control variable definition is equivalent to the innermost 
DO of a set of nested loops, and therefore varies most rapidly. For 
example, the statement: 

WRITE (5,150) ((FORM(K,L), L=l,10), K=l,10,2) 
150 FORMAT (F10.2) 

is similar to: 

DO 50 K=l,10,2 

DO 50 L=l,10 

WRITE (5,150) FORM(K,L) 
150 FORMAT (FlO.2) 
50 CONTINUE 

Since the inner DO loop is executed ten times for each iteration of 
the outer loop, the second subscript, L, advances from one through ten 
for each increment of the first subscript. This is the reverse of the 
order of subscript progression. Also, since K is incremented by two, 
only the odd-numbered columns of the array will be output. 

The entire list of the implied DO is transmitted before the 
incrementation of the control variable. For example: 

READ (3,999) (P(I), (Q(I,J), J=l,10), 1=1,5) 

assigns input values to the elements of 'arrays P and Q in the order: 

P(l), Q(l,l), Q(l,2), ... , Q(l,10) , 
P(2) , Q(2,l) , Q(2,2) , ... , Q(2,10) , 

• • • • 

P(5), Q(5,'l), 0(5^2), ... , Q(5,10) 

When processing multidimensional arrays, it is possible to use a 
combination of fixed subscripts and subscripts that vary according to 
an implied DO. For example: 

READ (3,5555) (B0X(1,J), J=l,10) 

assigns input values to B0X(1,1) through BOX(1,10), then terminates 
without affecting any other element of the array. 

It is also possible to output the value of the control variable 
directly, as in the statement: 

WRITE (6,1111) (I, 1=1,20) 

which simply prints the integers one through twenty. 
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5 . 3 UNFORMATTED SEQUENTIAL INPUT/OUTPUT 

Unformatted input and output is the transfer of data in internal 
(binary) format without conversion or editing. Unformatted I/O is 
generally used when data output by a program is to be subsequently 
input by the same program (or a similar program) . Unformatted I/O 
saves execution time by eliminating the data conversion process, 
preserves greater precision in the external data, and usually 
conserves file storage space. 

READ 

5.3.1 Unformatted Sequential READ Statement 

The unformatted sequential READ statement inputs one unformatted 
record from the specified logical unit and assigns the fields of the 
record without translation to the I/O list elements in the order in 
which they appear, from left to right. The amount of data each 
element receives is determined by its data type. 

The unformatted sequential READ statement has the form: 

READ (u[,END = s] [ ,ERR=S] ) [list] 

u is a logical unit number. 

s is an executable statement label. 

list is an I/O list. 

An unformatted sequential READ statement reads exactly one record. If 
the I/O list does not use all of the values in the record, the 
remainder of the record is discarded. If the contents of the record 
are exhausted before the I/O list is satisfied, an error condition 
results. 

If an unformatted seauential READ statement contains no I/O list, it 
skips over one full record, positioning the file to read the following 
record on the next execution of a READ statement. 

The -unformatted sequential READ statement must be used only to read 
records that were created by unformatted sequential WRITE statements. 

Examples 

READ (1) FIELDl, FIELD2 (Read one record from logical 

unit 1; assign values to 
variables FIELDl and FIELD2,) 

READ (8) (Advance logical unit 8 one 

record.) 

WRITE 

5.3.2 Unformatted Sequential WRITE Statement 

The unformatted sequential WRITE statement outputs the values of the 
elements in the I/O list to the specified logical unit without 
translation, as one unformatted record. 
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The unformatted sequential WRITE statement has the form: 

WRITE (u[,ERR=s] ) [list] 

u is a logical unit number. 

s is an executable statement label. 

list is an I/O list. 

If an unformatted WRITE statement contains no I/O list, one null 
record is output to the specified unit. 



Examples 



WRITE (1) {LIST(K) ,K=1,5) (Output the contents of elements 

1 through 5 of array LIST to 
logical unit 1.) 

WRITE (4) (Write a null record on logical 

unit 4.) 



5 . 4 FORMATTED SEQUENTIAL INPUT/OUTP UT 

Formatted input and output statements are used in conjunction with 
FORMAT statements (or format specifications stored in arrays) to 
translate and edit data on output for ease of interpretation, and, on 
input, to convert data from external format to internal format. 

READ 

5.4.1 Formatted Sequential READ Statement 

The formatted sequential READ statement transfers data from the 
specified logical unit. The characters transmitted are converted to 
internal format as specified by the format specification. The 
resulting values are assigned to the elements of the I/O list. 

The formatted sequential READ statement has the forms: 

READ f[,liEt] 

READ (u,f [ ,END=s] [ ,ERR=s] ) [list] 

u is a logical unit number. 

f is a format specifier. 

s is an executable statement label. 

list is an I/O list. 

If the FORMAT statement associated with a formatted input statement 
contains a Hollerith constant or alphanumeric literal, input data will 
be read and stored directly into the format specification. For 
example, the statements 

READ (5,100) 
100 FORMAT (5HADATA) 



5-7 



INPUT/OUTPUT STATEMENTS 

cause five characters to be read and stored in the Hollerith format 
descriptor. If the characters were HELLO, statement 100 would become: 

100 FORMAT (5HHELL0) 
A statement of the form: 

READ 200, ALPHA, BETA, GAMMA 

causes data to be read from a system dependent logical unit. 

If the number of elements in the I/O list is less than the number of 
fields in the input record, the excess portion of the record is 
discarded. If the number of list elements exceeds the number of input 
fields, an error condition results unless the format specifications 
state that one or more additional records are to be read (see Sections 
6.4 and 6.8) . 

If no I/O list is present, data transfer is between the record and the 
format specification. 

Examples 

READ (1,300) ARRAY (Read a record from 

300 FORMAT (20F8.2) logical unit 1, assign 

fields to ARRAY.) 

READ (5,50) (Read 25 characters 

50 FORMAT (25HAPAGEAHEADINGAGOESAHEREAA) from logical unit 5, 

place them 
in the FORMAT 
statement. ) 

WRITE 

5.4.2 Formatted Sequential WRITE Statement 

The formatted sequential WRITE statement transfers data to the 
specified logical unit. The I/O list specifies a sequence of values 
which are converted to characters and positioned as specified by the 
format specification. 

The formatted sequential WRITE statement has the form; 

WRITE (u,f [ ,ERR=s] ) [list] 

u is a logical unit number. 

f is a format specifier. 

s is an executable statement label. 

list is an I/O list. 

If no I/O list is present, data transfer is entirely between the 
record and the format specification. 

The data transmitted by a formatted sequential WRITE statement 

normally constitutes one formatted record. The format specification 

can, however, specify that additional records are to be written during 

the execution of that same WRITE statement. 
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Numeric data output under format control is rounded during the 
conversion to external format. (If such data is subsequently input 
for additional calculations, loss of precision may result. In this 
case, unformatted output is preferable to formatted output.) 

The records transmitted by a formatted WRITE statement must not exceed 
the length that can be accepted by the specified device. For example, 
a line printer typically cannot print a record that is longer than 132 
characters. 



Examples 



650 



95 



950 



WRITE (6, 550) 

FORMAT {'AHELLO,ATHERE') 



WRITE (1,95) AYE,BEE,CEE 
FORMAT (F8.5,F8.5,F8.5) 

WRITE (1,950) AYE,BEE,CEE 
FORMAT (F8.5) 



(Output the contents of the 
FORMAT statement to logical unit 
6.) 

(Write one record of three 
fields to logical unit 1.) 

(Write three separate records 
of one field each to logical 
unit 1.) 



In the last example, format control arrives at the rightmost 
parenthesis of the FORMAT statement before all elements of the I/O 
list have been output. Each time this occurs, the current record is 
terminated and a new record is initiated. Thus, three separate 
records are written. (See Section 6.7.) 



ACCEF 



5.4.3 Formatted ACCEPT Statement 

The function of the ACCEPT statement is identical to that of the 
formatted READ statement, except that input is read from a logical 
unit normally connected to the terminal keyboard. 

The ACCEPT statement has the form: 

ACCEPT f[,list] 

f is a format specifier. 

list is an I/O list. 

The rules for the format reference and I/O list of an ACCEPT statement 
are the same as those for the formatted READ statement (Section 
5.4.1) . 



Examples 



ACCEPT 100, NUMBER 
100 FORMAT (14) 



(Accept one Integer value from 
terminal keyboard.) 



ACCEPT 200 (Read 13 characters from 

200 FORMAT ( ' PUT ADATA AHERE ' ) keyboard, place them in the FORMAT 

statement . ) 
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TYPE 

5.4.4 Formatted TYPE Statement 

The TYPE statement functions identically to the formatted WRITE 
statement except that output is directed to a logical unit normally 
connected to the terminal printer. 

The TYPE Statement has the form: 

TYPE f[,list] 

f is a format specifier. 

list is an I/O list. 

The rules for the format reference and I/O list of a TYPE statement 
are the same as those for the formatted WRITE statement (Section 
5.4.2) . 

Examples 

TYPE FMT, BOLD (Display the contents of 

BOLD on terminal in the 
format specified by contents 
of array FMT. See Section 
5.4) 

TYPE 400 (Type message from FORMAT 

400 FORMAT (' AMOUNT ANEWATAPEAREEL ' ) statement on terminal.) 

PRINT 

5.4.5 Formatted PRINT Statement 

The function of the PRINT statement is the same as that of the 
formatted WRITE statement and TYPE statement, except that output is 
directed to a logical unit normally connected to a line printer. 

The PRINT statement has the form: 

PRINT f[,list] 

f is a format specifier. 

list is an I/O list. 

The format reference and I/O list in a PRINT statement follow the same 
rules as specified for the formatted sequential WRITE statement 
(Section 5.4.2) . 

Examples 

PRINT 999, NPAGE (Print the page number in 

999 FORMAT (IHI , lOOX, 'PAGE AA' , 13) upper right-hand corner of new 

page.) 

PRINT 222 (Print the contents of FORMAT 

222 FORMAT ( ' AENDAOF ALISTING ' ) statement on line printer.) 
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5.5 UNFORMATTED DIRECT ACCESS INPUT/OUTPUT 



Unformatted direct access READ and WRITE statements are used to 
perform direct access -I/O with a file on a direct access device. The 
DEFINE FILE or OPEN Statement is used to establish the number of 
records, and the size of each record, in a file to which direct access 
I/O is to be performed. Each direct access READ or WRITE statement 
contains an integer expression that specifies the number of the record 
CO be accessed. The record number must not be less than one nor 
greater than the number of records defined for the file. 

|fil''"rORTRAN IV-PLUS the expression that specifies the recocflnamber can 
Bse of any type, tt i,s converted to integer type it necessary. 



READ 



5.5.1 Unformatted Direct Access READ Statement 



The unformatted direct access READ statement positions the input file 
to a specified record and transfers the fields in that record to the 
elements in the I/O list without translation. 

The unformatted direct access READ statement has the form: 

READ (u'r [ ,ERR=s] ) [list] 

u is a logical unit number. 

r is the record number. 

s is an executable statement label. 

list is an I/O list. 

If there are more fields in the input record than elements in the I/O 
list, the excess portion of the record is discarded. If there is 
insufficient data in the record to satisfy the requirements of the I/O 
list, an error condition results. 

The unit number in the unformatted direct access READ statement must 
refer to a unit that has been previously defined for direct access 
processing . 



Examples 



READ (I'lO) LIST(l) ,LIST{8) (Read record 10 of a file on 

logical unit 1, assign two 
Integer values to specified 
elements of array LIST.) 

READ (4'58) (RHO (N) ,N=1 , 5) (Read record 58 of a file on 

logical unit 4, assign five 
Real values to array RHO.) 
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WRITE 

5.5.2 Unformabted Direct Access WRITE Statement 

The unformatted direct access WRITE statement transmits the values of 
the elements in the I/O list to a particular record of a direct access 
file. The data is written in internal format without translation. 

The unformatted direct access WRITE statement has the form: 

WRITE (u'r [ ,ERR=s] ) [list] 

u is a logical unit number. 

r is the record number. 

s is an executable statement label. 

list is an I/O list. 

If Che amount of data to be transmitted exceeds the record size, an 
error condition results. If the WRITE statement does not completely 
fill the record with data, the contents of the unused portion of the 
record are zero-filled. 



Examples 



WRITE (2'35) (NUM(K) ,K=1,10) (Output ten Integer values to 

record 35 of the file 
connected to logical unit 2.) 

WRITE (3 'J) ARRAY (Output the entire contents 

of ARRAY to the file 
connected to logical unit 3 
into the record indicated by 
the value of J.) 



5.6 FORMATTED DIRECT ACCESS INPUT/OUTPUT 

Formatted direct access READ and WRITE statements are used to perform 
direcc access I/O of character data with a file on a direct access 
device. The OPEN statement is used to establish the attributes of the 
file. Each READ or WRITE contains an expression that specifies the 
number of the record to be accessed. The record number must not be 
less than one nor greater than the number of records defined for the 
file. 

READ 

5.6.1 Formatted Direct Access READ Statement ; 

The formatted direct access READ statement inputs the specified record- ^ 
from the direct access file currently connected to the unit. I*** ]! 
characters in the record are converted as specified by the format Jj 
specification. The resulting values are assigned to the elements J 
specified by the list. 1 
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Che cornattad direct access READ statement has the form: 

,t";j.''^fiAD <u'r',f I,ERP-B)) [list] 

41 te « logical unit nunber. 

r' " i« the record ntunber. 

If i« a format specifier. - ' 

■U .- i« an executable atatenent label. 

|^t::^iin; ia «n I/O lisc. 

[If the V!^ ii*^ And format apecify mere characters than a record 
Intaine, ,or s^^ecify additional records, an error condition results. 

V " ; WRIT! 

M.<>.2 Formatted Dire ct A ccess WRltE St atement ' 

pVbti fotmacted direct access WBTTE statement outputs the specified 
^record to the direct access file that is currently connected to the 
funit. The list specifies a sequence of values which are converted, to 
characters and positioned as specified oy the format specification. 

*"T3Mi formatted direct access white statement has the form: 

WRITE (u'r,fI,ERB-s]) [list] 

u ia a logical unit number, 1 

£ - X" is the record number. . ' 

f f ia a format specifier. 

!&'«••'-• is an executable statement label. 
I'. ...... ■ 

f ■ liac is an t/0 list. 

g.- '■•*.' ■ - ./, 

St tm valu«8 specified by the liet and format do not fill the record, 

^itgp^ice Characters ace appended to fill the record. 

V< •". • ■ 

jfjitf the T/.3 list and foraiat apecify more characters than cah fit into a 

-racord, or apecify additional records, an error condition results. 



5 . 7 LIST-DIRECTED INPUT/OUTPUT 

Lisit-directed input and output statements provide a method for 
obtaining simple sequential formatted input or output without the need 
for FORMAT statements. On input, values are read from the unit, 
converted co internal format, and assigned to the elements of the I/O 
list. On output, values in the I/O list are converted to characters 
and written in a fixed format according to the data type of the value. 
The I/O list must be present. Records written by list-directed output 
statements are suitable for input by list-directed input statements 
provided they do not contain alphanumeric literals or Hollerith 
constants . 
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Both formatted and list-directed I/O statements can refer to the same 
unit. All operations permitted for formatted sequential I/O are 
supported with lisc-directed I/O statements; however, backspacing 
over list-directed records leaves the file position undefined. When 
files are read that contain both formatted and list-directed records, 
the user program must assure that each record is read properly. 

READ 

5.7.1 List-Directed READ Statement 

The list-directed READ statement transfers data from the specified 
unit, translates from external to internal format, and assigns the 
input values to the elements of the I/O list in the order in which 
they appear, from left to right. 

The list-directed READ statement has the form: 

READ *,list 

READ (u,*[ ,END=s] [,ERR=s] ) list 

u is a logical unit number. 

* indicates list-directed formatting. 

s is an executable statement label. 

list is an I/O list. 

The external record contains a sequence of values and value 
separators. 

A value can be: 

1. A constant 

Each input constant has the form of the corresponding FORTRAN 
constant. A complex constant has the form of a pair of real 
or integer constants separated by a comma and enclosed in 
parentheses. Spaces can occur between the open parenthesis 
and the first constant, around the separating comma and 
between the second constant and the close parenthesis. A 
logical constant is either T for .TRUE. or F for .FALSE. 
Hollerith, octal, and alphanumeric constants are not 
permitted. 

2. A null value 

A null value is specified by two consecutive commas with no 
intervening constant. Spaces can be embedded between the 
commas. A null value specifies that the corresponding list 
element is to remain unchanged. A null value cannot be used 
for either part of a complex constant, but can represent an 
entire complex constant. 

3. A repetition of constants in the form r*c 

The form r*c indicates r occurrences of c where r is a 
non-zero, unsigned integer constant and c is a constant. 
Spaces are not permitted except within the constant c as 
specified above. 
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4. A repetition of null values in the form r* 

The form r* indicates r occurrences of null where r is an 
unsigned integer constant. 

A value separator can be: 

1. one or more spaces or tabs 

2. a comma with or without surrounding spaces or tabs 

3. a slash with or without surrounding spaces or tabs 

A slash separator causes termination of processing on the 
input statement and record; all remaining I/O list elements 
are unchanged. 

The end of a record is equivalent to a space character. Spaces at the 
beginning of a record are ignored. 

The types of acceptable input constants are: integer, real, double 
precision, logical and complex. The data type of the value and the 
conversion from external to internal form is determined by the form of 
the constant. If ^he data types of the list element and the 
corresponding constant do not match, conversion is performed according 
to the rules for arithmetic assignment described in Table 3-1. 

Each input statement will read one or more records as required to 
satisfy the I/O list. If all of the values in a record are not used, 
either because a slash separator is encountered or the I/O list is 
exhausted, the remaining values in the record are lost. 

Example 

If the program unit consists of 

DOUBLE PRECISION T 

COMPLEX C,D 

LOGICAL L,M 

READ (1,*) I,R,C,D,L,M,J,K,S,T,A,B 



and the record read contains: 

4A6.3A(3.4,4.2) ,A(3,A2 ) A, AT,F , , 3*14 . 6A/ 

The following values are assigned to the I/O list elements: 

1 = 4 

R = 6.3 

C = (3.4,4.2) 

D = (3.0,2.0) 

L = .TRUE. 

M = .FALSE. 

K = 14 

S = 14.6 

T = 14.6 DO 

A, B and J will be unchanged. 
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/RITE 



5.7.2 Lisc-DLrected WRITE Statement 

The list-directed VaRTTE statement transmits the elements in the T/0 
lisc CO the specified unit, translating and edicing each value 
according to the data type of the value. 

The list-directed WRITE statement has the form: 

WRITE (u,*[ ,ERR=s] ) list 

u is a logical unit number. 

* indicates list-directed formatting. 

s is an executable statement label. 

lisc is an I/O list. 

The forms of che output values produced are the same as that required 
for input as described for the list-directed READ statement (Section 
5.7.1). In addition, alphanumeric literals and Hollerith constants 
can be output; these constants are not delimited by apostrophes. The 
values produced are separated by one space. Each value is transmitted 
in a default format as illustrated in Table 5-1. 



Table 5-1 
List-Directed Output Formats 



Data Type 



Logical*l 
Log ical *2 
Log ical* 4 
Integer*2 
In teger*4 
Real*4 
Real*8 
ComFlex*8 
Alphanumer ic 



1 i terals 



Output format 



15 

h2i 

L2 

17 

112 

IPG 

IPG 

IX, 

IX, 



15.7 

25.16 

' (' ,1PG14.7, • ,' , 1PG14.7,') ' 

nAl (n=length of the 

literal string) 



Occal values, null values, slash (/) separators, and repeated forms 
are not produced. Each output record begins with a space for carriage 
control. Each output statement writes one or more complete records. 
Each value is contained within a single record, except for 
alphanumeric literals which are longer than a record. 

Example 

The program unit 

DIMENSION A (5) 

DATA A/ 5* 3. 4/ 

WRITE (1,*) 'ARRAYAVALUESAFOLLOW' 

WRITE (1,*) A, 5 
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writes the following records: 

ARRAY AVALUES AFOLLOW 

•AAA3.400000AAAAAAA3. 400000 AAAAAAA3. 400000 AAAAAAA3. 400 000 
AAA3.400000AAAAAAAAAA5 

ACCEf 

5.7.3 List-Directed ACCEPT Statemen t 

The list-directed ACCEPT statement functions identically to the 
list-directed READ statement, except that input is read from a logical 
unit normally connected to the terminal keyboard. 

The list-directed ACCEPT statement has the form: 

ACCEPT *, list 

* indicates list-directed formatting. 

list is an I/O list. 

The rules for the form; of the external records read by the 
list-directed ACCEPT statement are the same as those for the 
list-directed READ statement (Section 5.7.1). 



Examples 



ACCEPT *,I,J,K,A(I,J,K) 
ACCEPT *,I,{0(J) ,J=1,I) 



TYPE 

5.7.4 List-Directed TYPE Statement: 

The list-directed TYPE statement functions identically to the 
list-directed WRITE statement, except that output is directed to a 
logical unit normally connected to the terminal printer. 

The list-directed TYPE statement has the form: 

TYPE *, list 

* indicates list-directed formatting. 

list is an I/O list. 

The form of the output values of a list-directed TYPE statement are 
the same as those for the list-directed WRITE statement (Section 
5.7.2) . 



Examples 



TYPE *, 'THEAANSWERAIS' ,1 
TYPE *,(I,XX(I) ,1 = 1,10) 
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>RINT 

5.7.5 List-Directed PRINT Statement 

The list-directed PRINT statement functions identically to the 
lisc-directed WRITE statement, except that output is direcced co a 
logical unit normally connected to a line printer. 

The list-directed PRINT statement has the form: 

PRINT *, list 

* indicates list-directed formatting. 

list is an I/O list. 

The form of the output values of a list-directed PRINT statement are 
the same as those for the list-directed WRITE statement (Section 
5.7.2). 

Examples 

PRINT *,( {QQ(M,N) ,M=1,100) ,N=1,100) 
PRINT *, 'THEAARRAYAZAIS' ,Z 



5 . 8 TRANSFER OF CONTROL ON END-OF-FILE OR ERROR CON DITIONS 

Any type of READ or WRITE statement can contain a specification that 
control is to be transferred to another statement if che I/O statement 
encounters an error condition or the end of che file. These 
specifications have the form: 

END=s 



and 



ERR=S 



s is the label of an executable statement to which control is 

CO be transferred. 

A READ or WRITE Statement can contain either or both of the above 
specificacions, in either order. Any such specification must follow 
the unit number, record number, and/or format specification. 

If an end-of-file condition is encountered during an I/O operation, 
che READ statement transfers control to the statement named in the 
END=s specification. If no such specification is present, an error 
condition results. An end-of-file condition occurs when no more 
records exist in a sequential file, or when an end-of-file record 
produced by the ENDFILE statement is read. 

If a READ or WRITE statement encounters an error condition during an 
I/O operation, it transfers control to the statement whose label 
appears in the ERR=s specification. If no ERR=s specification is 
present, the I/O error causes program execution to terminate. 

The statement label in the END=s or ERR=s specification must refer to 
an executable statement that exists within the same program unit as 
the I/O statement. 
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Examples of I/O statements containing END=s and ERR=s specifications 
follow: 

READ (8,END=550) (MATRIX (K) ,K=1 , 100) (Pass control to statement 

550 when end-of-file is 
encountered on logical unit 
8.) 



WRITE (5,50,ERR=390) 

READ (1' INDEX, ERR=150) ARRAY 



(Pass control to statement 
390 on error.) 

(Pass control to statement 
150 on error.) 



NOTE 

An end-of-file condition can not occur 
during direct access READ or WRITE 
statements. Attempting to READ or WRITE 
a record using a record number greater 
than the maximum specified for the unit 
is an error condition. 



The FORTRAN User's Guide describes system subroutines that can control 
processing of error coniditions and obtain information from the I/O 
system concerning the type of error condition that has occurred. 



5 . 9 AUXILIARY INPUT/OUTPUjr STATEMENTS 

The statements in this catiegory are used to perform file management 
functions. 



REWIN 



5.9.1 REWIND Stateme nt 

The REWIND statement causels a currently open sequential file to be 
repositioned to the beginning of the file. 

The REWIND statement has the form: 

REWIND u 

u is a logical unit number. 

The unit number in the REWIND statement must refer to a 
directory-structured device (e.g., disk). A file must be open on that 
device. 



Example 



REWIND 3 (Reposition logical unit 3 to beginning of 
currently open file.) 
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SPACE 

5,9.2 BACKSPACE Statement 

The BACKSPACE Statement repositions a currently open sequential file 
backward one record and repositions to the beginning of that record. 
On the execution of the next I/O statement for that unit, that record 
is available for processing. 

The BACKSPACE statement has the form: 

BACKSPACE u 

u is a logical unit number. 

The unit number must refer to a directory-structured device (e.g., 
disk). A file must be open on that device. 



Example 



BACKSPACE 4 (Reposition open file on logical unit 4 to 
beginning of the previous record.) 



DFILE 

5.9.3 ENDFILE Statement 

The ENDFILE statement writes an end-file record to the specified 
sequential unit. 

The ENDFILE statement has the form: 

ENDFILE u 

u is a logical unit number. 

Example 

ENDFILE 2 (Output an end-file record to logical unit 2.) 

^E FILE 

5.9.4 DEFINE FILE Statement 

The DEFINE FILE statement establishes the size and structure of a file 
upon which direct access I/O is to be performed. 

The DEFINE FILE Statement has the form: 

DEFINE FILE u (m,n,U,v) ( ,u (m ,n ,U, v) ] . . . 

u is an integer constant or integer variable that specifies the 
logical unit number. 

m is an integer constant or integer variable that specifies the 
number of records in the file. 

n is an integer constant or integer variable that specifies the 
length, in words, of each record. 

U specifies that the file is unformatted (binary) . The letter 
U is the only acceptable entry in this position. 
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V is an integer variable, called the associated variable of the 
file. At the conclusion of each direct access I/O operation 
the record number of the next higher numbered record in the 
file is assigned to v. 

The DEFINE FILE statement specifies that a file containing m 
fixed-length records of n words each exists, or is to exist, on 
logical unit u. The records in the file are sequentially numbered 
from 1 through m. 

The DEFINE FILE statement must be executed before the first 
direct access I/O statement that refers to the specified file. 

The DEFINE FILE statement also establishes the integer variable v as 
the associated variable of the file. At the end of each direct access 
I/O operation, the FORTRAN I/O system places in v the record number of 
the record immediately following the one just read or written. Since 
the associated variable always points to the next sequential record in 
the file (unless it is redefined by an assignment, input or FIND 
statement) , direct access I/O statements ' ' 
sequential processing of the file, by using 
the file as the record number specifier. 



can be used to perform 
the associated variable of 



If the file is to be processed by more than one program unit, or in an 
overlay environment, the associated variable should be placed in a 
resident named COMMON block. 



In FORTRAN IV-PLUS i:he parameter m can be an INTEGER* 4 quantity. 



Example 



DEFINE FILE 3 (1000 , 48 , U ,NREC) 



This statement specifies that logical unit 3 is to be connected to a 
file of 1000 fixed-length records, each record of which is 48 words 
long. The records are numbered sequentially from 1 through 1000, and 
are unformatted. After each direct access I/O operation on this file, 
the integer variable NREC will contain the record number of the record 
immediately following the one just processed. 



FIND 



5.9.5 F IND Statemen t 

The FIND statement positions a direct access file on a specified unit 
to a particular record and sets the associated variable of the file to 
that record number. No data transfer takes place. 

The FIND statement has the form: 

FIND (u'r) 

u is a logical unit number. 

r is the record number. 



5-21 



INPUT/OUTPUT STATEMENTS 

The unic number in the statement must refer to a unit that must have 
been previously defined for direct access processing. 

The record number must not be less than 1 nor greater than the number 
of records defined for the file. 



Examples 



FIND (I'D (Position logical unit 1, and its associated 
variable, to the first record of the file.) 

FIND (4'TNDX) (Position the file and associated variable 
to record identified by contents of INDX.) 



OPEN 

5,9.6 OPEN Statement 

An OPEN statement can be used to connect an existing file to a logical 
unic, or to create a new file and connect it to a logical unit. In 
addition, the statement can contain specifications for file attributes 
that will direct the creation and/or subsequent processing. 

The OPEN statement has the form: 
OPEN (p[,p]...) 
p is a specification in one of the following forms: 

key key is a keyword. 

key=e e is a numeric expression. 

key=s s is an executable statement label. 

key=lit lit is an alphanumeric literal of special 
significance . 

key=v v is an integer variable name. 

key=n n is an array name, variable name, array element 

name, or alphanumeric literal. 

The keywords available for attribute specifications are summarized in 
Table 5-2, and described in detail in the following sections. 

Attribute specifications can appear in any order. In most cases, 
attribute specifications are optional and if not present, default 
specifications will be provided. 

In the discussions that follow, a numeric expression can be any 
integer, real or double precision expression. The value of the 
expression will be converted to integer type prior to use m the OPEN 
statement. 

NOTE 

All OPEN statement keywords and options 
are accepted by all PDP-11 FORTRAN 
processors . Some keywords and options 
may not be supported on a specific 
operating system. Consult the 
appropriate FORTRAN User's Guide for 
information on system-specific options. 
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Table 5-2 
Keywords in the OPEN Statement 



KEYWORD 


FUNCTION 


VALUES 


UNIT 


logical unit number 


e 


NAME 


file specification 


n 


TYPE 


file type 


'OLD' 

'NEW' 

'SCRATCH* 

' UNKNOWN ' 


ACCESS 


access method 


'SEQUENTIAL' 
'DIRECT' 
'APPEND' 


READONLY 


read-only file access 




FORM 


file format 


' FORMATTED ' 
' UNFORMATTED ' 


RECORDSIZE 


direct access record length 


e 


ERR 


error condition transfer label 


s 


BUFFERCOUNT 


number of buffers 


e 


INITIALSIZE 


file allocation size 


e 


EXTENDSTZE 


file extension increment 


e 


NOS PANE LOCKS 


unspanned records 




SHARED 


shared file access 




DISPOSE 
DISP 


file disposition 


'SAVE ' 
'KEEP' 
'PRINT' 
'DELETE' 


ASSOC lATEVARIABLE 


associated variable name 


V 


CARRTAGECONTROL 


carriage control type 


' FORTRAN ' 
'LIST' 
' NONE ' 


MAXREC 


number of direct access records 


e 


BLOCKS IZE 


physical block size 


e 


e is a numeric expression. 

n is a variable name, array name, array element name, or 

alphanumeric literal, 
s is an executable statement label. 
V is an integer variable name. 
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5.9.6.1 UNIT Keyword 
The form 

UNIT = u 



specifies the logical unit to which a file is to be connected; u is a 
numeric expression. The unit specification must appear in the l^st. 
There must not be a file connected to the logical unit at the time che 
OPEN statement is executed. 



5.9.6.2 NAME Keyword 

The form 

NAME = fin 

specifies the name of the file to be connected to the unit; fin may 
be an alphanumeric literal, variable name, array name or array elemenc 
name. The name can be any file specification accepcable co che 
operating system. Default file name conventions are described in the 
appropriate FORTRAN User's Guide. 

If the file name is stored in a variable or array, the name must be 
terminated by an ASCII null character (zero byte). 



5.9.6.3 TYPE Keyword 
The form 

TYPE = typ 

specifies the type of the file to be opened; typ is a literal of the 
form 'OLD', 'NEW, 'SCRATCH', or 'UNKNOWN'. If 'OLD' is specified, 
che file must already exist. If 'NEW is specified, a new file will 
be created. If 'SCRATCH' is specified a new file is created and 
connected to the specified unit for use by the executable program; 
the file is deleted at the execution of a CLOSE statement referring to 
the same unit or at the termination of the executable program. If 
■UNKNOWN' is specified the processor will first try 'OLD and if the 
file is not found it will then try 'NEW, thereby creating a new file. 
The default is 'NEW . 



5.9.6.4 ACCESS Keyword 

The form 

ACCESS = ace 

specifies whether the file is direct access or sequential; ace is a 
literal of the form: 'DIRECT', • SEQUENTIAL' , or 'APPEND'. 'DIRECT' 
specifies a direct access file. 'SEQUENTIAL' specifies a sequential 
file. 'APPEND' implies a sequential file and positioning after the 
last record of the file. The default is 'SEQUENTIAL'. 
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5.9.6.5 READONLY Keyword 

The form 

READONLY 

specifies that an existing file is to be read and prohibits writing to 
that file. 



5.9.6.6 FORM Keywor d 

The form 

FORM = ft 

specifies whether the file being opened is to be read and written 
using formatted or unformatted READ or WRITE statements; ft is a 
literal of the form 'FORMATTED' or 'UNFORMATTED'. For sequential 
files, 'FORMATTED" iq the default. For direct access files, 
'UNFORMATTED' is the default. 



5.9.6.7 RECORDSIZE Keyword 

The form 

RECORDSIZE = rl 

specifies the length of each logical record of a direct access file; 
rl is a numeric expression. If the records are formatted, the lengch 
is the number of characters; if the records are unformatted, the 
length is the number of storage units (double words) . 



5.9.6.8 ERR Keyword 
The form 

ERR = s 

specifies a transfer on error condition; s is an executable statement 
label. The ERR= option as specified in the OPEN statement applies 
only to that OPEN and not to subsequent I/O operations on the unit. 
If an error condition occurs, no file is opened or created. 
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5.9.6.9 BUFFERCOUNT Keyword 
The form 

BUFFERCOUNT = be 



specifies Che number of buffers co be associated ^J^h *:he unit for 
mulbi-buffered I/O; be is a numeric expression. If not specified, or 
zero, the system default (normally one) is assumed. 



5.9.6.10 INTTIALSTZE Keyword 
The form 

TNITTALSIZE = is 



specifies the number of blocks in the initial allocation °lJP^ll^J°' 
a new file on a disk unit; is is a numeric expression. This keyword 
?an be used Snl? for new files and only for allocation to a disk unit. 
If zero or not present, the system default initial allocation will be 
used. 



5.9.6.11 EXTENDSIZE Keyword 
The form 

EXTENDSIZE = es 

specifies the number of blocks by which to extend a file when 
additional file storage must be allocated; es is a numeric 
expression. If zero or not present, the system default will be used. 



5.9.6.12 NOSPANBLOCKS Keyword 
The form 

NOSPANBLOCKS 

soecifies that records are not to cross disk block boundaries. If any 
record exceeds tSe size of a physical block, an error condition 
results. 



5.9.6.13 SHARED Keyword 
The form 

SHARED 

specifies that the file is to be opened for shared access ^y more than 
one program executing simultaneously. Consult the appropriate FORTRAN 
User's Guide for additional information on the implications of tnis 
specifier. 
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5.<).6.14 DISPOSE Keyword 

Th<j forms 

DISPOSE = dis 
DISP = dis 

determine the disposition of the file when the unit is closed; dis is 
a literal of the form 'SAVE', 'KEEP', 'PRINT', or 'DELETE'. The 
default value is 'SAVE'. 'SAVE' causes the file to be retained after 
the unit is closed; 'KEEP' is a synonym for 'SAVE'. 'DELETE' causes 
the file to be deleted when the unit is closed. 'PRINT' causes the 
file to be printed on the system line printer. On some systems, 
'PRINT' implies deletion after printing; consult the appropriate 
FORTRAN User's Guide for further information. A read-only file cannot 
be printed or deleted. A scratch file cannot be printed or saved. 



5.9.6.15 ASSOCIATEVARIABLE Keyword 

The form 

ASSOCIATEVARIABLE = asv 

specifies the integer variable asv, that, at the conclusion of each 
direct access I/O operation, contains the record number of the next 
sequential record in the file. This specifier is ignored for a 
sequential file. 



5.9.6.16 CARRIAGECONTROL Keyword 

The form 

CARRIAGECONTROL = cc 

determines the kind of carriage control processing to be used when 
printing a file; cc i^ a literal of the form 'FORTRAN', 'LIST', or 
'NONE'. The default for formatted files is 'FORTRAN'; for 
unformatted files, 'NONE'. 'FORTRAN' specifies normal FORTRAN 
interpretation of the 4irst character; 'LIST' specifies single 
spacing between records and 'NONE' specifies no implied carriage 
control. 



5.9.6.17 MAXREC Keyword 
The form 



MAXREC 



mr 



specifies the 
access file; 
number of records 



maximum number of records to be permitted in a direct 
mr is a numeric expression. The default is no maximum 
This specifier is ignored for a sequential file. 
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5.9.6.18 BLOCKSIZE Keyword 
The form 

BLOCKSIZE = bks 

specifies the physical block size to be used for the unit; bks is a 
numeric expression. This specifier only has effect for magnetic tape 
files; it has no effect for disk files. The default is the system 
default for the device. 



5.9.6.19 OPEN Statement Examples 
Examples 

OPEN (UNIT=3,TYPE='SCRATCH' ,ACCESS= ' DIRECT ' , 
INITIALSIZE=50,RECORDSIZE=64) 

Create a 50 block direct access file for temporary storage. 
The file is deleted at program termination. 

OPEN (UNIT=I,NAME='MTO: DATA. DAT' , BLOCKSIZE=8192 , 
TYPE='NEW' ,ERR=14) 

Create a file on magnetic tape with a large blocksize for 
efficient processing. 

OPEN ( UNIT=T,NAME='MTO: DATA. DAT ', READONLY, 
TYPE='OLD' ,BLOCKSIZE=8192) 

Open the file created in the previous example for input. 

::lose 

5.9.7 CLOSE Statement 

The CLOSE statement has the form: 

CLOSE (UNIT=u [, illll''^^) =PJ [.ERR=s ] ) 

u is a logical unit number. 

p is a literal that determines the disposition of the file. 
Its values are 'SAVE', 'KEEP', 'DELETE', and | PRINT'. 
'SAVE' and 'KEEP' are synonyms; if either is specified, the 
file is retained after the CLOSE. If 'DELETE' is specified 
the file ceases to exist after the CLOSE. 'PRINT' causes 
the file to be printed by the system line printer. For 
scratch files the default is 'DELETE'; for all other files 
the default is 'SAVE'. 

s is an executable statement label. 

The CLOSE statement disconnects a file from a unit. The disposition 
specified in a CLOSE statement supersedes the disposition specified in 
the OPEN statement, except that a file opened as a scratch file can 
not be saved or printed nor can a file opened for read-only access be 
printed or deleted. 
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Examples 

CLOSE (UNIT=1, DISPOSE*' PRINT') 

Close the file on unit 1 and submit the file for printing, 
CLOSE (UNIT=J,DISPOSE=' DELETE' ,ERR=99) 

Close the file on unit J and delete it. 



ENCC 
DECC 



5.10 ENCODE AND DECODE STATEMENTS 

These two statements perform data transfers according to format 
specifications, translating data from internal format to character 
format, or vice versa. Unlike conventional formatted I/O statements, 
however, these data transfers take place entirely between variables or 
arrays in the FORTRAN program. 

The ENCODE and DECODE statements are written as follows: 

ENCODE (c,f,b[,ERR=s] ) [list] 

DECODE(c,f ,b[ ,ERR=s] ) [list] 

c is an integer expression representing the number of 
characters (bytes) that are to be converted or that are to 
result from the conversion. (This is analogous co the 
length of an external record.) 



is a format specifier. If the format specifies 
one record, an error condition results. 



more than 



is the name of an array, array element or variable. In the 
ENCODE statement, this entity receives the characters. In 
the decode: statement, it contains the characters that are to 
be translated to internal format, b must not be the name of 
a VIRTUAL array or a VIRTUAL array element. 



s is an executable statement label. 

list is an I/O list. In the ENCODE statement, the I/O list 
contains the data that is to be converted to characters. In 
the DECODE statement, the list receives the data that has 
been translated from characters to internal format. 

The ENCODE statement causes the I/O list elements to be translated to 
character format according to the format specification and stored in 
the entity b, in an analogous fashion to a WRITE statement. 

The DECODE statement causes character data in the entity b to be 
interpreted and converted according to the format specification and 
assigned to the I/O list elements? this processing is analogous to a 
READ statement. 



If the entity b is an array, the elements of that array are 
in the order of subscript progression. 



processed 
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The number of characters that can be processed by the ENCODE or DECODE 
statement is dependent on the data type of the entity b in that 
statement. An INTEGER*2 array, for example, can contain two 
characters per element, so the maximum number of characters is twice 
the number of elements in that array. 

The interaction between format control and the I/O list is the same as 
for a formatted I/O statement. 

Example 

DIMENSION A (3) ,K(3) 
DATA A /'1234', '5678', '9012'/ 
DECODE (12, 100, A) K 
100 FORMAT (314) 

Execution of the DECODE statement causes the 12 characters in array A 
to be converted to Integer format (specified by statement 100) and 
stored in array K, as follows: 

K(l) = 1234 
K(2) = 5678 
K(3) = 9012 
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6.1 OVERVIEW 

FORMAT Statements are nonexecutable statements used in conjunction 
with formatted I/O statements and with ENCODE and DECODE statements. 
The FORMAT statement describes the format in which data fields are 
transmitted, and the data conversion and editing to be performed to 
achieve that format. 

The FORMAT statement has the form: 



form; 



FORMAT (q-|^f-j^S3^f2S2 



fn^n^ 



where each f is a field descriptor, or a group of field descriptors 
enclosed in parentheses, each s is a field separator and each q is 
zero or more slash (/) record terminators. The entire list of field 
descriptors and field separators including the parentheses is called 
the format specification. The list must be enclosed in parentheses. 

A field descriptor in a format specification has the form: 

[r]Cw[.d] 

r represents a repeat count which specifies that the field 
descriptor is to be applied to r successive fields. If the 
repeat count is omitted, it is assumed to be 1. See Section 
6.2.17 for further discussion of field repetition. 

C is a format code. 

w specifies the field width. 

d specifies the number of characters to the right of the 
decimal point. 

The terms r, w, and d must all be unsigned integer constants less than 
or equal to 255. 

The field separators are comma and slash. A slash has the additional 
function of being a record terminator. The functions of the field 
separators are described in detail in Section 6.4. 

The field descriptors used in format specifications are as follows: 
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1. Integer: Iw, Ow 

2. Logical: Lw 

3. Real, Double 

Precision, Complex: Fw.d, Ew.d, Dw.d, Gw.d 

4. Literal and editing: Aw, nH, '...', nX, Tn, Q, $, : 

(In the alphanumeric and editing field descriptors, n specifies a 
number of characters or character positions.) 

Any of the F, E, D, or G field descriptors can be preceded by a scale 
factor of the form: 

nP 

where n is an optionally signed integer constant in the range -127 to 
+127 that specifies the number of positions the decimal point is to be 
scaled to the left or right. The scale factor is described in Section 
6.2.15. 

During data transmission, the format specification is scanned from 
left to right. Data conversion is performed by correlating the values 
in the I/O list with the corresponding field descriptors. In the case 
of H field descriptors and alphanumeric literals, data transmission 
takes place entirely between the field descriptor and the external 
record. The interaction between the format specification and the I/O 
list is described in detail in Section 6.7. 



6.2 FIELD DESCRIPTORS 

The individual field descriptors that can appear in a format 
specification are described in detail in the following sections. The 
field descriptors ignore leading spaces in the external field, but 
treat embedded and trailing spaces as zeros. 



6.2.1 I Field Descriptor 

The I field descriptor governs the translation of integer data. It 
has the form: 

Iw 

The I field descriptor causes an input statement to read w characters 
from the external record and to assign them as an integer value to the 
corresponding integer element of the I/O list. The external data must 
be an integer; it must not contain a decimal point or exponent field. 
The I field descriptor interprets an all-blank field as a zero value. 
If the value of the external field exceeds the range of the 
corresponding integer list element, an error occurs. If the first 
non-blank character of the external field is a minus symbol, the I 
field descriptor causes the field to be stored as a negative value; a 
field preceded by a plus symbol, or an unsigned field, is treated as a 
positive value. For example: 
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Format External Field Internal Representation 

14 2788 2788 

13 -26 -26 

19 AAAAAA312 312 

19 3.12 not permitted; error 

The I field descriptor causes an output statement to transmit the 
value of the corresponding integer I/O list element to an external 
field w characters in length, right justified, replacing any leading 
zeros with spaces. If the value of the list element is negative, the 
field will have a minus symbol as its leftmost non-blank character. 
Space must therefore be included in w for a minus symbol if any are 
expected. Plus symbols, on the other hand, are suppressed and need 
not be accounted for in w. If w is too small to contain the output 
value, the entire external field is filled with asterisks. For 
example: 

External Representation 

284 
-284 
AA174 
** 
*** 
not permitted; error 



6.2.2 Field Descriptor 

The O field descriptor governs the transmission of octal values. It 
has the form: 

Ow 

The field descriptor causes an input statement to read w characters 
from the external record and to assign them as an octal value to the 
corresponding I/O list element. The list element must be of integer 
or logical type. The external field must contain only the numerals 
through 7; it must not contain a sign, a decimal point, or' an 
exponent field. For example: 



Format 


Internal Value 


13 


284 


14 


-284 


15 


174 


12 


3244 


13 


-473 


17 


29.812 







Internal 


Format 


External Field 


Octal Representation 


05 


32767 


32767 


04 


16234 


1623 


06 


13AAAA 


130000 


03 


97A 


not permitted; error 



The field descriptor causes an output statement to transmit the 
value of the corresponding I/O list element, right justified, to a 
field w characters long. If the data does not fill the field, leading 
spaces are inserted; if the data exceeds the field width, the entire 
field is filled with asterisks. No signs are output; a negative 
value is transmitted in its octal (two's complement) form. The I/O 
list element must be of integer or logical type. For example: 
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Format Internal (Decimal) Value External Representation 

06 32767 A77777 

06 -32767 100001 

02 14261 ** 

04 27 AA33 

05 13.52 not permitted; error 



6.2.3 F Field Descriptor 

The F field descriptor specifies the data conversion and editing of 
real or double precision values, or the real or imaginary parts of 
complex values. It has the form: 

Fw.d 

On input, the F field descriptor causes w characters to be read from 
the external record and to be assigned as a real value to the 
corresponding I/O list element. If the first non-blank character of 
the external field is a minus sign, the field is treated as a negative 
value; a field that is preceded by a plus sign, or an unsigned field, 
is considered to be positive. An all-blank field is considered to 
have a value of zero. In all appearances of the F field descriptor, w 
must be greater than or equal to d+1. 

If the field contains neither a decimal point nor an exponent, it is 
treated as a real number of w digits, in which the rightmost d digits 
are to the right of the decimal point. If the field contains an 
explicit decimal point, the location of that decimal point overrides 
the location specified by the field descriptor. If the field contains 
an exponent (in the same form as described in Section 2.4.2 for real 
constants or Section 2.4.3 for double precision constants), that 
exponent is used in establishing the magnitude of the value before it 
is assigned to the list element. For example: 

Format External Field Internal Representation 

F8.5 123456789 123.45678 

F8.5 -1234.567 -1234.56 

F8.5 24.77E+2 2477.0 

F5.2 1234567.89 123.45 

On output, the F field descriptor causes the value of the 
corresponding I/O list element to be rounded to d decimal positions 
and transmitted to an external field w characters in length, right 
justified. If the converted data consists of fewer than w characters, 
leading spaces are inserted; if the data exceeds w characters, the 
entire field is filled with asterisks. 

The total field width specified must be large enough to accommodate a 
minus sign, if any are expected (plus signs are suppressed) , at least 
one digit to the left of the decimal point, the decimal point itself, 
and d digits to the right of the decimal. For this reason, w should 
always be greater than or equal to (d+3) . Examples follow: 
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Forn 


lat 


F8. 


5 


F9. 


3 


F2. 


3 


FlC 


1.4 


F5. 


2 


F5. 


2 
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Internal Value External Representation 

2.3547188 A2. 35472 

8789.7361 A8789.736 

51.44 ** 

-23.24352 AA-23.2435 

325.013 ***** 

-.2 -0.20 



6.2.4 E Field Descriptor 

The E field descriptor specifies the transmission of real or double 
precision values in exponential format. It has the form: 

Ew.d 

The E field descriptor capses an input statement to input w characters 
from the external recotd. It interprets and assigns that data in 
exactly the same way as the F field descriptor. For example: 

Format External Field Internal Representation 

E9.3 734.432E3 734432.0 

E12.4 AA1022.43E-6 1022.43E-6 

E15.3 52.3759663AAAAA 52.3759663 

E12.5 210.5271D+10 210.5271E10 

Note that in the last exa^nple the E field descriptor disregards the 
double precision connotation of a D exponent field indicator and 
treats it as though it were an E indicator. 

The E field descriptor causes an output statement to transmit the 

value of the corresponding list element to an external field w 

characters in width, right justified. If the number of characters in 

the converted data is less than w, leading spaces are inserted; if 

the number of characters exceeds w, the entire field is filled with 
asterisks. The corresponding I/O list element must be of real, double 
precision, or complex type. 

Data output under control of the E field descriptor is transmitted in 
a standard form, consisting of a minus sign if the value is negative 
(plus signs are suppressed), a zero, a decimal point, d digits to the 
right of the decimal, and a 4-character exponent of the form: 



or 



E+nn 



E-nn 



where nn is a 2-digit integer constant. The d digits to the right of 
the decimal point represent the entire value, scaled to a decimal 
fraction. 

Because w must be large enough to include a minus sign (if any are 

expected), a zero, a decimal point, and an exponent, in addition to d 

digits, w should always be equal to or greater than (d+7). Some 
excimples are: 
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Format Internal Value External Representation 

E9.2 475867.222 A0.48E+06 

E12.5 475867.222 A0.47587E+06 

E12 3 0.00069 AAA0.690E-03 

Eioia -0.5555 -0.556E+00 

£5.3 56.12 ***** 



6.2.5 D Field Descriptor 

The D field descriptor specifies the transmission of real or double 
precision values. It has the form: 

Dw.d 

On input, the D field descriptor functions exactly as an equivalent E 
field descriptor, except that the input data is converted and assigned 
as a double precision entity, as in the following examples: 

Format External Field Internal Representation 

D10.2 12345AAAAA 12345000. ODO 

D10.2 AA123.45AA 123.45D0 

D15.3 367.4981763D+04 3. 674981763D+06 

On output the effect of the D field descriptor is identical to that of 
the E field descriptor, except that the D exponent field indicator is 
used in place of the E indicator. For example: 

Format Internal Value External Representation 

D14 3 0.0363 AAAAAO. 363D-01 

D23!l2 5413.87625793 AAAAAO. 541387625793D+04 



D9.6 1.2 



6.2.6 G Field Descriptor 



********* 



The G field descriptor transmits real, double precision, or complex 
data in a form that is in effect a combination of the F and E field 
descriptors. It has the form: 

Gw.d 

On input, the G field descriptor functions identically to the F field 
descriptor (see Section 6.2.3). 

On output, the G field descriptor causes the value of the 
corresponding I/O list element to be transmitted to an external field 
w characters in length, right justified. The form in which the value 
is output is a function of the magnitude of the value, as described in 
Table 6-1. 
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Table 6-1 
Effect of Data Magnitude on G Format Conversions 



Data Magnitude 


Effective Conversion 


m < 0.1 


Ew.d 


0.1 < m < 1.0 


F(w-4).d, 'AAAA' 


1.0 <. m < 10.0 

• 


F(w-4) . (d-1) , 'AAAA' 

• 


lOd-2 < m < lOd-1 


F(w-4).l, 'AAAA' 


lOd-1 < III < lOd 


F(w-4).0, 'AAAA' 


m > lOd 


Ew.d 



The 'AAAA' field descriptor, which is (in effect) inserted by the G 
field descriptor for values within its range, specifies that four 
spaces are to follow the numeric data representation. 

The field width, w, must include space for a minus sign, if any are 
expected (plus signs are suppressed) , at least one digit to the left 
of the decimal point, the decimal point itself, d digits to the right 
of the decimal, and (for values that are outside the effective range 
of the G field descriptor) a 4-character exponent. Therefore, w 
should always be equal to or greater than (d+7) . Examples of G output 
conversions are: 

External Representation 



Format 


Internal Value 


G13.6 


0.01234567 


G13.6 


-tO. 12345678 


G13.6 


1.23456789 


G13.6 


12.34567890 


G13.6 


123.45678901 


G13.6 


-1234.56789012 


G13.6 


12345.67890123 


G13.6 


123456.78901234 


G13.6 


-1234567.89012345 



A0.123 
-0.123 
AA1.23 
AA12.3 
AA123. 
A-1234 
AA1234 
AA1234 
-0.123 



457E-01 
457AAAA 
457AAAA 
457AAAA 
457AAAA 
.57AAAA 
5.7AAAA 
57. AAAA 
457E+07 



For comparison, consider the following example of the same 
output under the control of an equivalent F field descriptor. 



values 



Format 


Internal Values 


F13.6 


0.01234567 


F13.6 


-0.12345678 


F13.6 


1.23456789 


F13.6 


12.34567890 


F13.6 


123.45678901 


F13.6 


-1234.56789012 


F13.6 


12345.67890123 


F13.6 


123456.78901234 


F13.6 


-1234567.89012345 



External Representation 



AAAAAO 
AAAA-0 
AAAAAl 
AAAA12 
AAA123 
A-1234 
A12345 
123456 
****** 



.012346 
.123457 
.234568 
.345679 
.456789 
.567890 
.678901 
.789012 
******* 
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6.2.7 L Field Descriptor 

The L field descriptor specifies the transmission of logical data. It 
has the form: 



Lw 

The L field descriptor causes an input statement to read w characters 
from the external record. If the first non-blank character of that 
field is the letter T, the value .TRUE. is assigned to the 
corresponding I/O list element. {The corresponding I/O list element 
must be of logical type.) If the first non-blank character of the 
field is the letter F, or if the entire field is blank, the value 
.FALSE. is assigned. Any other value in the external field causes an 
error condition. 

The L field descriptor causes an output statement to transmit either 
the letter T, if the value of the corresponding list element is 
.TRUE., or the letter F, if the value is .FALSE., to an external field 
w characters wide. The letter T or F is in the rightmost position of 
the field, preceded by w-1 spaces. For example: 



Format 

L5 
LI 



Internal Value 

.TRUE. 
.FALSE. 



External Representation 

AAAAT 
F 



6.2.8 A Field Descriptor 

The A field descriptor specifies the transmission of alphanumeric 
data. It has the form: 

Aw 

On input, the A field descriptor causes w characters to be read from 
the external record and stored in ASCII format in the corresponding 
I/O list element. (The corresponding I/O list element may be of any 
data type.) The maximum number of characters that can be stored in a 
variable or array element depends on the data type of that element, as 
follows: 



I/O List 


Maximum Number 


Element 


of 


Characters 


Logical*l 




1 


Logical*2 




2 ( FORTRJ 


Logical*4 




4 


Integer*2 




2 


Integer*4 




4 


Real 




4 


Double Precision 




8 


Complex 




8 



If w is greater than the maximum number of characters that can be 
stored in the corresponding I/O list element, only the rightmost one, 
two, four, or eight characters (depending on the data type of the 
variable or array element) are assigned to that entity; the leftmost 
excess characters are lost. If w is less than the number of 
characters that can be stored, w characters are assigned to the list 
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element, left justified, iand trailing spaces are added to fill the 
variable or array elementj. For example: 



Format 

A6 
A6 
A6 
AG 



Exteirnal Field 

PAGE A # 
PAGE A # 
PAGE A # 
PAGE A # 



Internal Representation 

# (Logical*l) 

A# (Integer*2) 

GEA# (Real) 

PAGEA#AA (Double Precision) 



On output, the A field descriptor causes the contents of the 
corresponding I/O list element to be transmitted to an external field 
w characters wide. If the list element contains fewer than w 
characters, the data appears in the field right-justified with leading 
spaces. If the list element contains more than w characters, only the 
leftmost w characters are transmitted. For example: 



Format 

A5 
A5 
A5 



Internal Value 

OHMS 

VOLTSAAAA 

AMPERESA 



External Representation 

AOHMS 
VOLTS 
AMPER 



6.2.9 H Field Descriptor 

The H field descriptor has the form of a Hollerith constant: 

nHc,c„c," ... c 
i. ^ J n 

n specifies the number of characters that are to be 
transmitted 

c is an ASCII character. 

When the H field descriptor appears in a format specification, data 
transmission takes place between the external record and the field 
descriptor itself. 

The H field descriptor causes an input statement to read n characters 
from the external record and to place them in the field descriptor, 
with the first character appearing immediately after the letter H. 
Any characters that had been in the field descriptor prior to input 
are replaced by the input characters. 

The H field descriptor causes an output statement to transmit the n 
characters in the field descriptor following the letter H to the 
external record. An example of the use of H field descriptors for 
input and output follows: 

TYPE 100 
100 FORMAT (41HAENTERAPROGRAMATITLE,AUPATOA20ACHARACTERS) 

ACCEPT 200 
200 FORMAT (20HAATITLEAGOES AHEREAAA) 

The TYPE statement transmits the characters from the H field 
descriptor in statement 100 to the user's terminal. The ACCEPT 
statement accepts the response from the keyboard, placing the input 
data in the H field descriptor in statement 200. The new characters 
replace the words TITLE GOES HERE; if the user enters fewer than 20 
characters, the remainder of the H field descriptor is filled with 
spaces to the right. 
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6.2.9.1 Alphanumeric Literals - An alphanumeric literal can be used 
in place of an H field descriptor. Both types of format specifiers 
function identically. 

The apostrophe character is written within an alphanumeric literal as 
two apostrophes. For example: 

50 FORMAT ( 'TODAY ' 'SADATEAIS : A' , 12, '/ ' » 12, '/' f 12) 

A pair of apostrophes used in this manner is considered to be a single 
character . 



6.2.10 X Field Descriptor 

The X field descriptor has the form: 

nX 

The X field descriptor causes an input statement to skip over the next 
n characters in the input record. 

The X field descriptor causes an output statement to transmit n spaces 
to the external record. For example: 

WRITE (5,90) NPAGE 
90 FORMAT {13H1PAGEANUMBERA, 12, 16X, 23HGRAPHICAANALYSIS, ACONT. ) 

The WRITE statement prints a record similar to: 

PAGE NUMBER nn GRAPHIC ANALYSIS, CONT. 

where "nn" is the current value of the variable NPAGE. The numeral 1 
in the first H field descriptor is not printed, but is used to advance 
the printer paper to the top of a new page. Printer carriage control 
is explained in Section 6.3. 



6.2.11 T Field Descriptor 

The T field descriptor is a tabulation specifier. It has the form: 

Tn 

where n indicates the character postion of the external record. The 
value of n must be greater than or equal to one, but not greater than 
the number of characters allowed in the external record. 

On input, the T field descriptor causes the external record to be 
positioned to its nth character position. For example, if a READ 
statement inputs a record containing: 

ABCAAAXYZ 

under control of the FORMAT statement: 

10 FORMAT (T7,A3,T1,A3) 

the READ statement would input the characters XYZ first, then the 
characters ABC. 
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On output to devices other than the line printer or terminal, the T 
field descriptor states that subsequent data transfer is to begin at 
the nth character position of the external record. For output to a 
printing device, data transfer begins at position (n-1) . The first 
position of a printed record is reserved for a carriage control 
character (see Section 6.3) which is never printed. For example the 
statements: 



PRINT 25 
25 FORMAT (T51 , ■C0LUMNA2 ' ,T21 , 'COLUMNAl ' ) 



would cause the following line to be printed: 
Position 20 

COLUMN 1 



Position 50 

COLUMN 2 



6.2.12 Q Field Descriptor 

The Q field descriptor, which is simply the letter Q, is used to 
obtain the number of characters in the input record remaining to be 
transmitted during a READ operation. The I/O list element 
corresponding to the Q field descriptor must be of Integer type. 

As an example, the statements: 

READ (4,1000) XRAY,KK,NCHRS, (ICHR(I) ,I=1,NCHRS) 
1000 FORMAT (E15. 7 , 14 ,Q, 80A1) 

reads two fields into the variables XRAY and KK. The number of 
characters remaining in the record is stored in NCHRS and exactly that 
many characters are read into the array ICHR. By placing the Q 
descriptor first in the format specification, the actual length of the 
input record can be determined. 

When the Q field descriptor is used with an output statement it has no 
effect except that the corresponding list item is skipped. 



6.2.13 $ Descriptor 

The character $ (dollar sign) appearing in a format specification 

modifies the carriage control specified by the first character of the 

record. The $ descriptor is intended primarily for interactive I/O 

and causes the terminal print position to be left at the end of the 
text written (rather than returned to the left margin) so that a typed 

response will appear on the same line following the output. 



6.2.14 



Descriptor 



The character : (colon) appearing in a format specification causes 
termination of format control if there are no more items in the I/O 
list. It has no effect if there are I/O list items remaining. For 
example the statements: 
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PRINT 1,3 
PRINT 2,4 

1 FORMAT ('AI=', 12, •AJ=',I2) 

2 F0RMAT('AK=',I2:, 'AL=',I2) 

print the following 2 lines: 

I=A3AJ= 
K=A4 

Section 6.7 describes format control in detail. 



6.2.15 Complex Data Editing 

Since a complex value is an ordered pair of real values, input or 
output of a complex entity is governed by two real field descriptors, 
using any combination of the forms Fw.d, Ew.d, Dw.d or Gw.d. 

On input, two successive fields are read and assigned to a complex I/O 
list element as its real and imaginary parts, respectively. For 
example 

Format External Fields Internal Representation 

F8.5,F8.5 1234567812345.67 123.45678, 12345.67 
E9.1,F9.3 734.432E8123456789 734.432E8, 12345.678 

On output, the constituent parts of a complex value are transmitted 
under the control of repeated or successive field descriptors. 
Nothing intervenes between those parts unless explicitly stated by the 
format specification. For example: 

Format Internal Values External Representation 

2F8.5 2.3547188, 3.456732 A2. 35472A3. 45673 

E9.2,'A,A',E5.3 47587.222, 56.123 AO. 48E+06A, A***** 



6.2.16 Scale Factor 

The location of the decimal point in real and double precision values, 
and in the constituent parts of complex values, can be altered during 
input or output through the use of a scale factor. The scale factor 
has the form: 

nP 

n is a signed or unsigned integer constant in the range -127 to 
+127 specifying the number of positions the decimal point is 
to be moved to the right or left. 

A scale factor may appear anywhere in a format specification, but must 
precede the field descriptors with which it is to be associated. It 
has the forms: 

nPFw.d nPEw.d nPDw.d nPGw.d 
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Data input under control of one of the above field descriptors is 
multiplied by lO""^ before it is assigned to the corresponding I/O list 
element. For example, a 2P scale factor multiplies an input value by 
.01, moving the decimal point two places to the left; a -2P scale 
factor multiplies an input value by 100, moving the decimal point two 
places to the right. If the external field contains an explicit 
exponent, however, the scale factor has no effect. For example: 

Forma t External Field Internal Representation 

3PE10.5 AAA37.614A .037614 

3PE10.5 AA37.614E2 3761.4 

-3PE10.5 AAAA37.614 37614.0 

The effect of the scale factor on output depends on the type of field 
descriptor with which it is associated. For the F field descriptor, 
the value of the I/O list ielement is multiplied by 10 before being 
transmitted to the external record. Thus, a positive scale factor 
moves the decimal point to the right; a negative scale factor moves 
the decimal point to the left. 

Values output under control of an E or D field descriptor with scale 
factor are adjusted by multiplying the basic real constant portion of 
each value by 10" and subtracting n from the exponent. Thus a 
positive scale factor moves the decimal point to the right and 
decreases the exponent; a negative scale factor moves the decimal 
point to the left and increases the exponent. 

The effect of the scale factor is suspended while the magnitude of the 
data to be output is within the effective range of the G field 
descriptor, since it suppljies its own scaling function. The G field 
descriptor functions as an E field descriptor when the magnitude of 
the data value is outside its range; the effect of the scale factor 
is therefore the same as described for that field descriptor. 

Note that on input, and on output under control of an F field 
descriptor, a scale factor actually alters the magnitude of the data; 
on output, a scale factor attached to an E, D, or G field descriptor 
merely alters the form in which the data is transmitted. Note also 
that on input a positive ^cale factor moves the decimal point to the 
left and a negative scale factor moves the decimal point to the right, 
while on output the effect is just the reverse. 

If no scale factor is attached to a field descriptor, a scale factor 
of zero is assumed. Once a scale factor has been specified, however, 
it applies to all subsequent real and double precision field 
descriptors in the sam^ format specification, unless another scale 
factor appears; that scalje factor then assumes control. Note that 
format reversion (Section 6.7) has no effect on the scale factor. A 
scale factor of zero car* only be reinstated by an explicit OP 
specification. 

Some examples of scale factor effect on output are: 

Format Internal Value External Representation 

1PE12.3 -^70.139 AA-2.701E+02 

1PE12.2 -270.139 AAA-2.70E+02 

-1PE12.2 -270.139 AAA-0.03E+04 
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6.2.17 Grouping and Group Repeat Specifications 

Any field descriptor (except H, T, P, or X) can be applied to a number 
of successive data fields by preceding that field descriptor with an 
unsigned integer constant, called a repeat count , that specifies the 
number of repetitions. For example, tne statements: 

20 FORMAT {E12. 4 , E12 . 4 , E12 . 4 , 15, 1 5 , 15 , 15) 
and 

20 FORMAT (3E12.4,4I5) 

have the same effect. 

Similarly, a group of field descriptors can be repeatedly applied to 
data fields by enclosing those field descriptors in parentheses, with 
an unsigned integer constant, called a group repeat count, preceding 
the left parenthesis. For example: 

50 FORMAT { 21 8 , 3 (F8 . 3 , E15 . 7) ) 

is equivalent to: 

50 

1 



FORMAT (I8,I8,,F8.3,El5.7,F8.3,E15.7yF8.3,E15.7) 



An H or X field descriptor, which could not otherwise be repeated, can 
be enclosed in parentheses and treated as a group repeat 
specification, thus allowing it to be repeated a desired number of 
times. 

If a group repeat count is omitted, it is assumed to be 1. 










.^ .->,.., ^j^^»rt«.,„|i Kiift ob^v *l:h«f, rf«trlcfei«ftsg 

ng'tcfltts liiar SILtnC forniat. oTr sat «Vr.©Tr jpo.|idtkio« 
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DtMENStON A (5) 




f 


- '^... DATA A/i.,2.,3.,4.,5./ 






. -■ :- , . DO 10 T * i,io 






100 FOJRMAT<t<MAX0{T,5)>) 

- '«..,- i't.-:iO .CpNTTfJUj? ,-..„, 

':. ' ' t- '-;*«- -.t-', ." '-'^'-jv- ?*■• • •■f'"' I f " K-' " '- • • ■ • 
. : -•-., .':-:C0,-2(}'J -.1*5 - • ^ .. ■ 
, , '■ WRin <5,101) {A(I),J=1,T) 
, • 3,01 FORHAT <<I>FlG.<t-l>) 
''.aO CONTTHUE 




t 


END ,..,■. 




fu 

■^ 

-,-• 

i 


produces the following output when executed: 

.-1 , . .. .; -- 

2 

3 :'. ■ 'f . " ' 

4 
5 
6 

. ? ....-■, 

8 ■ '. ' - 

-s : ; 

■ 10 

1. -' . ' . 

2.0 2.0 
•3.00 3,00 3,00 
4.000 ■■ 4.000 4.000 4.000 




* ! 


5.0000 5.0000 5.0000 5.0000 


5,0000 



, Figure 6-1 
Variable, Forjnat Expression Example 



6.2.19 Default Field Descriptors 

If the field descriptors T, 0, L, F, E, D, G, or A are written without 
any field width value (e.g., F) , a default value for w and d is 
supplied based upon the data type of the I/O list element. 

The values for w and d are shown in Table 6-2. 

Table 6-2 
Default Field Descriptor Values 



Field Descriptor 


List Element 


w 


d 


T or 


TNTEGER*2 


7 




I or 


TNTEGER*4 


12 




L 


LOGICAL 


2 




F,E,G or D 


REAL, COMPLEX 


15 


7 


F,E,G or D 


DOUBLE PRECISION 


25 


16 


A 


L0GICAL*1 


1 




A 


L0GICAL*2,INTEGER*2 


2 




A 


L0GTCAL*4 , TNTEGER*4 


4 




A 


REAL, COMPLEX 


4 




A 


DOUBLE PRECISION 


8 





Note thac for A format, the actual length of the corresponding I/O 
list element is used. 
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6.3 CARRIAGE CONTROL 

The first character of every record transmitted to a printing device 
is never printed; instead, it is interpreted as a carriage control 
character. The FORTRAN I/O system recognizes certain characters for 
this purpose; the effects of these characters are shown in Table 6-3. 

Table 6-3 
Carriage Control Characters 



Character 


Effect 


A space 

zero 

1 one 

+ plus 

$ dollar sign 


Advances one line 

Advances two lines 

Advances to top of 
next page 

Does not advance 
(allows overprinting) 

Advances one line before printing 
and suppresses carriage 
return at the end of the 
record 



Any character other than those described in Table 6-3 is treated 
though it is a space, and is deleted from the print line. 



as 



6.4 FORMAT SPECIFICATION SEPARATORS 

Field descriptors in a format specification are generally separated 
from one another by commas. The slash (/) record terminator can also 
be used to separate field descriptors. A slash causes the input or 
output of the current record to be terminated and a new record to be 
initiated. For example: 

WRITE (5,40) K,L,M,N,0,P 
40 FORMAT ( 306/16 , 2F8 . 4) 

is equivalent to: 

WRITE (5,40) K,L,M 
40 FORMAT (306) 

WRITE (5,50) N,0,P 
50 FORMAT (I6,2F8.4) 

It is possible to bypass input records or to output blank records by 
the use of multiple slashes. If n consecutive slashes appear between 
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two field descriptors, they cause (n-1) records to be skipped on input 
or (n-1) blank records to be output. (The first slash terminates the 
current record; the second slash terminates the first skipped or 
blank record, and so on ^ ) If n slashes appear at the beginning or end 
of a format specif icatiori, however, they result in n skipped or blank 
records, because the Initial and terminal parentheses of the format 
specification are themselves a record initiator and record terminator, 
respectively. An exampl^ of the use of multiple record terminators is 
as follows: 



WRITE (5,99) 
99 FORMAT ( ' 1 'T51 iHEADINGALINE '//TSl "SUBHEADINGALINE '//) 

The above statements; output the following: 

Column 50, top of page 

HEADING LINE 
(blanM line) 

SUBHEADING LINE 
(blanki line) 
(blank line) 



6 . 5 EXTERNAL FIELD SEPAI^ATORS 

A field descriptor such as Fw.d specifies that an input statement is 
to read w characters from the external record. If the data field in 
question contains fewer tjhan w characters, the input statement would 
read some characters frjom the following field unless the short field 
were padded with leading jzeros or spaces. To avoid the necessity of 
doing so, an input fijcld containing fewer than w characters may be 
terminated by a comma, whjich overrides the field descriptor's field 
width specification. "^his practice, called short field termination , 
is particularly useful when entering data from a terminal keyboard. 
It may be used in conjunction with I, 0, F, E, D, G, and L field 
descriptors. For example: 

READ (6,100) I,|J,A,B 
100 FORMAT (2I6,2Flj0.2) 

If the external record iriput by the above statements contains: 

1,-2,1.0,35 

Then the following assignjments take place: 

1 = 1 



A = 1.0 

B = 0.35 

Note that the physical end of the record also serves as a field 
terminator. Note also ithat the d part of a w.d specification is not 
affected as illustrated by the assignment to E. 
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Only fields of fewer than w characters can be terminated by a comma. 
If a field of w characters or greater is followed by a comma, the 
comma will be considered to be part of the following field. 

Two successive commas, or a comma following a field of exactly w 
characters, constitutes a null (zero-length) field. Depending ori the 
field descriptor in question, the resulting value assigned is 0, 0.0, 
ODO, or .FALSE.. 

A comma cannot be used to terminate a field that is to be read under 
control of an A, H, or alphanumeric literal field descriptor. If the 
physical end of the record is encountered before w characters have 
been read, however, short field termination is accomplished and the 
characters that were input are assigned successfully. Trailing spaces 
are appended to fill the corresponding I/O list element or the field 
descriptor . 



6.6 OBJECT TIME FORMAT 

Format specifications may be stored in arrays. Such a format 
specification (termed an object time format) can be constructed or 
altered during program execution. The form of a format specification 
in an array is identical to a FORMAT statement, except that the word 
FORMAT and the statement label are not present. The initial and 
terminal parentheses must appear, however. Object- time formats may 
not be stored in VIRTUAL arrays. An example of object-time format is: 

REAL TABLE<5f5) 

DOUBLE PRECISION F0RRAY(20) f RPARfFBIGrFMED.FSML 

DATA FORRAY < 1 ) » RPAR/ ' ( ' r ' ) ' / 

DATA FBIGrFMED»FSHL/'F8.2» ' , 'F9.4» ' » 'F9.A» '/ 

DO 20 J=l»5 

DO 18 I=l»5 

F0RRAY<I+1) = FMED 

IF (TABLEdfJ) .GE, 100) F0RRAY<I + 1) = FBI6 
IF <TABLE(I»J) .LE, 0.1) F0RRAY<I+1) = FBML 
18 CONTINUE 

F0RRAY<I+1) = RPAR 

WRITE (SfFORRAY) (TABLECKi- J) f K=l »5> 

20 CONTINUE 
END 

In this example, the DATA statement assigns a left parenthesis to the 
first element of FORRAY and assigns a right parenthesis and three 
field descriptors to variables for later use. The proper field 
descriptors are then selected for inclusion in the format 
specification, based on the magnitude of the individual elements of 
array TABLE. A right parenthesis is then added to the format 
specification just before its use by the WRITE statement. Thus, the 
format specification changes with each iteration of the DO loop. 



6.7 FORMAT CONTROL INTERACTION WITH INPUT/OUTPUT LISTS 

Format control is initiated with the beginning of execution of a 
formatted I/O statement. Each action of format control depends on 
information provided jointly by the next element of the I/O list (if 
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one exists) and the next field descriptor of the FORMAT statement or 
format array. Both the I/O list and the format specification, except 
for the effects of repeat counts, are interpreted from left to right. 

If the I/O statement contains an I/O list, at least one field 
descriptor of a type othet than H, X, T or P must exist in the format 
specification. An execution error occurs if this condition is not 
met. 

When a formatted input statement is executed, it reads one record from 
the specified unit ancj initiates format control; thereafter, 
additional records can tl)e read as indicated by the format 
specification. Format control demands that a new record be input 
whenever a slash is encountered in the format specification, or when 
the last outer right parenthesis of the format specification is 
reached and I/O list elemertts remain to be filled. Any remaining 
characters in the current record are discarded at the time the new 
record is read. 

When a formatted output statement is executed, it transmits a record 
to the specified unit as format control terminates. Records may also 
be output during format coijitrol if a slash appears in the format 
specification or if the i last outer right parenthesis is reached and 
more I/O list elements remain to be transmitted. 

Each field descriptor of types I, 0, F, E, D, G, L, A, and Q 
corresponds to one element in the I/O list. No list element 
corresponds to an H, X^ P, T, or alphanumeric literal field 
descriptor. In the ca$e of H and alphanumeric literal field 
descriptors, data transfer I takes place directly between the external 
record and the format specification. 

When format control encounters an I, 0, F, E, D, G, L, A, or Q field 
descriptor, it determines if a corresponding element exists in the I/O 
list. If so, format control transmits data, appropriately converted 
to or from external format, between the record and the list element, 
then proceeds to the next jfield descriptor (unless the current one is 
to be repeated). If thfere is no corresponding list element, format 
control terminates. 
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6 . 8 SUMMARY OF RULES FOR ^ORMAT STATEMENTS 

The following is a summary! of the rules pertaining to the construction 

and use of the FORMAT sjtatement or format array and its components, 

and to the construction of i the external fields and records with which 
a format specification comfnunicates. 
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6.8.1 General 



1. A FORMAT statement must always be labeled. 

2. In a field descriptor such as rlw or nX, the terms r, w, and 
n must be unsigned integer constants greater than zero. The 
repeat count and field width specification may be omitted. 

3. In a field descriptor such as Fw.d, the term d must be an 
unsigned integer constant. It must be present in F, E, D, 
and G field descriptors even if it is zero. The decimal 
point must also be present. The field width specification, 
w, must be greater than or equal to d. The w and d must 
either both be present or both omitted. 

4. In a field descriptor such as nHc^^Cj ... c^, exactly n 
characters must be present following the H format code. Any 
ASCII character may appear in this field descriptor (an 
alphanumeric literal field descriptor follows the same 
rule) . 

5. In a scale factor of the form nP, n must be a signed or 
unsigned integer constant in the range -127 to 127 
inclusive. Use of the scale factor applies to F, E, D, and 
G field descriptors only. Once a scale factor has been 
specified, it applies to all subsequent real or double 
precision field descriptors in that format specification 
until another scale factor appears; an explicit OP 
specification is required to reinstate a scale factor of 
zero. Note that format reversion has no effect on the scale 

■ fsT^or . 

6. No repeat count is permitted in H, X, T or alphanumeric 
literal descriptors unless those field descriptors are 
enclosed in parentheses and treated as a group repeat 
specification. 

7. If an I/O list is present in the associated I/O statement, 
the format specification must contain at least one field 
descriptor of a type other than H, X, P, T or alphanumeric 
literal. 

8. A format specification in an array must be constructed 
identically to a format specification in a FORMAT statement, 
including the initial and terminal parentheses. When a 
format array name is used in place of a FORMAT statement 
label in an I/O statement, that name must not be 
subscripted . 



6.8.2 Input 



1. An external input field with a negative value must be 
preceded by a minus symbol; a positive value may optionally 
be preceded by a plus sign. 

2. An external field whose input conversion is governed by an I 
field descriptor must have the form of an integer constant. 
An external field input under control of an O field 
descriptor must have the form of an octal constant (Section 
2.4.5), without a leading double quote. Neither can contain 
a decimal point or an exponent. 
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3. An external field whose input conversion is handled by an F, 
E, or G field descriptor must have the form of an integer 
constant or a real or double precision constant (Section 
2.4.2). It can contain a decimal point and/or an E or D 
exponent field. 

4. If an external field contains a decimal point, the actual 
size of the fractional part of the field, as indicated by 
that decimal point, overrides the d specification of the 
corresponding real or double precision field descriptor. 

5. If an external fjield contains an exponent, it causes the 
scale factor (iif any) of the corresponding field descriptor 
to be inoperative for the conversion of that field. 

6. The field widthj specification must be large enough to 
accommodate, inj addition to the numeric character string of 
the external fiejld, any other characters that can be present 
(algebraic sign ,| decimal point, and/or exponent). 

7. A comma is the ohly character that is acceptable for use as 
an external field separator. It is used to terminate input 
of fields that ate shorter than the number of characters 
expected, or to designate null (zero-length) fields. 



6.8.3 Output 



A format specification must not demand the output of more 
characters than ban be contained in the external record (for 
example, a line i3rinter record cannot contain more than 133 
characters incluiSing the carriage control character) . 

The field width specification, w, must be large enough to 
accommodate all; characters that may be generated by the 
output conversion, including an algebraic sign, decimal 
point, and exponent (the field width specification in an E 



field descriptor 



for example, should be large enough to 



contain (d+7) characters) 

The first character of a record output to a line printer or 
terminal is used for carriage control; it is never printed. 
The first character of such a record should be a space, 0,1, 
$, or +. Any other character is treated as a space and is 
deleted from the record. 
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CHAPTER 7 
SPECIFICATION STATEMENTS 



This chapter discusses • the FORTRAN specification statements. 
Specification statement;^ are nonexecutable. They provide the 
information necessary for 'the proper allocation and initialization of 
variables and arrays,, and define other characteristics of the symbolic 
names used in the program. 



IMPLIC 



7.1 IMPLICIT STATEMENT 

The IMPLICIT statement overrides the implied data type of symbolic 
names, in which all nam^s that begin with the letters I, J, K, L, M, 
or N are presumed to represent integer data and all names beginning 
with any other letter are ^presumed to be real. 

The IMPLICIT statement has the forms 

IMPLICIT typfa [,a] . . .) t,typ(a[,a] . . .) ] . . . 

typ is one of the following data type specifiers: 

INTEGER 

INTEGER* 2 

INTEGER*4 

REAL 

REAL* 4 

REAL*8 

DOUBLE PRECISION 

COMPLEX 

COMPLEX* 8 

BYTE 

LOGICAL 

L0GICAL*1 

L0GICAL*4 

a is an alphabetic specification in either of the general form 



or 



;^i-^2 



is an alphabetic character. 
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The lacter form specifies a range of letters, from cl through c2, 
which must occur in alphabetical order. 

The IMPLICIT statement assigns the specified data type to all symbolic 
names that begin with any specified letter, or any letter wichm a 
specified range, and which have no explicit type declaration. For 
example, the statements: 

IMPLICIT INTEGER { I , J , K , L, M,N) 
IMPLICIT REAL (A-H, 0-Z) 

represent the default in the absence of any data type specifications. 

IMPLICIT statements must not be labeled. 

Examples 

IMPLICIT DOUBLE PRECISION D 

IMPLICIT COMPLEX {S,Y) , LOGICAL*! (L,A-C) 

i DEC- 

^TION 7.2 TYPE DECLARATION STATEMENTS 

Type declaration statements explicitly define the data type of 
specified symbolic names. 

Type declaration statements have the form: 

typ V [ ,vl . . . 

is one of the following data type specifiers: 



cyp 



BYTE 

LOGICAL 

LOGICAL*! 

LOGICAL* 4 

INTEGER 

INTEGER*2 

INTEGER*4 

REAL 

REAL*4 

REAL*8 

DOUBLE PRECISION 

COMPLEX 

C0MPLEX*8 

V is the symbolic name of a variable, array, statement 
function or FUNCTION subprogram, or an array declarator. 

A type declaration statement causes the specified symbolic names to 
have the specified data type; it overrides the data type implied by 
the initial letter of a symbolic name. 

A type declaration statement can define arrays by including array 
declarators (see Section 2.6) in the list. In each program unit, an 
array name can appear only once in an array declarator. 
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A symbolic name can be foillowed by a data type length specifier of the 
form *E, where s is one of the acceptable lengths for the data type 
being declared. Such a st>ecif ication overrides, for the item with 
which it was specified, the length attribute implied by the statement. 
For example: 

INTEGER*2 I, J, K, M12*4, C, IVEC*4(10) 
EEAL*8 WXl, WXZ, WX3*4, WX5, WX6*8 

Type declaration statements should precede all executable statements 
and all specification statements except the IMPLICIT statement. It 
must precede the first use of any symbolic name it defines. 

The data type of a symbolic name can be explicitly declared only once. 

Type declaration statements must not be labeled. 

Examples 

INTEGER COUNT, MATRIX{4,4), SUM 
REAL MAN,IABS 
LOGICAL SWITCH 

DIMEh 

7 . 3 DIMENSION STATEMENT 

The DIMENSION statement defines the number of dimensions in an array 
and the number of elementfe in each dimension. 

The DIMENSION Statement has the form: 

DIMENSION a(d) [,a{d) ] . . . 

a is the symbolic name of an array. 

d is a dimension declarator. 

Each a(d) is an array declarator as described in Section 2.6. 

The DIMENSION statement aJLlocates a number of storage locations, one 

for each element in e^ch dimension, to each array named in the 

statement. Each storage location is one, two, four or eight bytes in 
length, as determined by the data type of the array. The total num.ber 

of locations assigned to ^n array is equal to the product of all 

dimension declarators in the array declarator for that array. For 
example: 

DIMENSION ARMY{4,4), MATRIX ( 5 , 5 , 5) 

defines ARRAY as having 1$ real elements of two words each, and MATRIX 
as having 125 integer eleiinents of one word each. 

For further information concerning arrays and the storage of array 
elements, see Section 2.6. 

Ari-ay declarators can also appear in type declaration, VIRTUAL, and I 
COMMON statements; howeve^', in each program unit, an array name can I 
appear in only one array (declarator. I 

DIMENSION statements must: not be labeled. 
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Examples 

DIMENSION BUD(12,24,10) 
DIMENSION X(5,5,5),Y(4,85),Z(100) 
DIMENSION MARK(4,4,4,4) 

IIMON 

7.4 COMMON STATEMENT 

A COMMON Statement defines one or more contiguous areas (blocks) of 
storage. Each block is identified by a symbolic name; in addition, 
one common block is also called the blank common block. A COMMON 
statement also defines the order of variables and arrays that are part 
of each common block. 

Data in COMMON can be referenced from different program units by the 
same block name. 

The COMMON statement has the form: 

COMMON [/[cb]/] nlist [ [,]/[cb]/ nlist] . . . 

cb is a symbolic name, called a common block name, or is blank. 
If the first cb is blank, the first pair of slashes can be 
omitted. 

nlist is a list of variable names, array names, and array 
declarators separated by commas. 

A common block name can be the same as a variable or array name; 

however, it cannot be the same as the name of a function or a 

subroutine, or a function or subroutine entry, in the executable 
program. 

Common blocks with the same name that are declared in different 
program units all share the same storage area when those program units 
are combined into an executable program. 

Because assignment of components to common is on a one-for-one storage 
basis, components assigned by a COMMON statement in one program unit 
should agree in data type with those placed in common by another 
program unit. For example, if one program unit contains tb- 
statement : 

COMMON CENTS 

and another program unit contains the statement: 

COMMON MONEY 

incorrect results can occur since the 1-word integer variable MONEY is 
made to correspond to the high-order word of the real variable CENTS. 

Care must be taken when L0GICAL*1 elements are assigned to common, to 
ensure that any data of other types, assigned following the LOGICAL*! 
data, is allocated on a word boundary. All common blocks start on a 
word (even) boundary. 
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Example 

Main Progranji Subprogram 

COMMON HEAT,X/BIi,Kl/KILO,Q SUBROUTINE FIGURE 

COMMON /BLK1/LIMA,R/ /ALFA, BET 

CALL FIGURE [ 

RETURN 
END 

The COMMON statement in the main program places HEAT and X in blank 
common and places KILO : and Q in a labeled common block, BLKl. The 
COMMON statement in the sttbroutine causes ALFA and BET to correspond 
to HEAT and X in blank cdmmon and makes LIMA and R correspond to KILO 
and Q in BLKl. 

A COMMON statement must not contain the names of VIRTUAL arrays or 
VIRTUAL array declarators. 



7.4.1 Blank Common and Na|med Common 

There can be only one blanik common block in an entire executable 
program. COMMON statements can be used to establish any number of 
named common blocks. 



7.4.2 COMMON Statements wjith Array Declarators ' 

Array declarators can be used in the COMMON statement to define 
arrays. Array names must not be otherwise subscripted (individual 
array elements cannot be assigned to common). In a program unit, an 
array name can appear only once in an array declarator. 

EQUIVi 

7.5 EQUIVALENCE STATEMENa] LENCE 

The EQUIVALENCE Statement declares two or more entities to be 
associated (either totally or partially) with the same storage 
location. The EQUIVALENCE statement references components that exist 
in the same program unit. 

The EQUIVALENCE statement ihas the form: 

EQUIVALENCE (nlist) [ , (nl ist ) ] . . . 

nlist is a list of variables and array elements, separated by 
commas. At least two components must be present in each 
nlist. 

The EQUIVALENCE statement causes all of the variables or array 
elements in one parenthesized list to be allocated beginning in the 
same storage location. Note that an Integer variable made equivalent 
to a Real variable shares storage with the high-order word of that 
variable. Mixing of data types in this way is permissible. Multiple 
components of one data type can share the storage of a single 
component of a higher-ranked data type. For example: 
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DOUBLE PRECISION DVAR 
INTEGER*2 IARR(4) 
EQUIVALENCE (DVAR , lARR { 1 ) ) 

The EQUIVALENCE statement causes the four elements of the integer 
array lARR to occupy the same storage as the double precision variable 
DVAR. 

The EQUIVALENCE statement can also be used to equate variable names. 
For example, the statement 

EQUIVALENCE (FLTLEN, FLENTH, FLIGHT) 

causes FLTLEN', FLENTH and FLIGHT to have the same definition provided 
they are also of the same data type. 

An EQUIVALENCE statement in a subprogram must not contain dummy 
arguments. An EQUIVALENCE statement must not contain the names of 
VIRTUAL arrays or VIRTUAL array elements. 



Examples 



EQUIVALENCE (A,B) , (B,C) (has the same effect as 

EQUIVALENCE (A,B,C)) 

EQUIVALENCE (A(1),X), (A(2),Y), (A(3),Z) 



7.5.1 Making Arrays Equivalent 

When an element of an array is made equivalent to an element of 
another array, the EQUIVALENCE statement also sets equivalences 
between the corresponding elements of the two arrays. Thus, if the 
first elements of two equal-sized arrays are made equivalent, both 
entire arrays are made to share the same storage space. If the third 
element of a 5-element array is made equivalent to the first element 
of another array, the last three elements of the first array overlap 
the first three elements of the second array. 

The EQUIVALENCE Statement must not attempt to assign the same storage 
location to two or more elements of the same array, nor to assign 
memory locations in any way that is inconsistent with the normal 
linear storage of array elements (for example, making the first 
element of an array equivalent with the first element of another 
array, then attempting to set an equivalence between the second 
element of the first array and the sixth element of the other) . 

In the EQUIVALENCE statement only, it is possible to identify an array 
element with a single subscript (i.e., the linear element number), 
even though the array has been defined as a multi-dimensional array. 

For example, the statements: 

DIMENSION TABLE (2,2), TRIPLE (2,2,2) 
EQUIVALENCE (TABLE (4), TRIPLE (7)) 

result in the entire array TABLE sharing a portion of the storage 
space allocated to array TRIPLE as illustrated in Figure 7-1. 
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Array TRTPILE 


Array TABLE 


Array 
Element 


Element 
Number 


Array 
Element 


Element 
Number 


TRTPLE(1,1,1) 
TRIPLE (2, 1,1) 
TRIPLE(1,2,1) 
TRIPLE(2,2,1) 
TRIPLE(1,1,2) 
TRIPLE(2,1,2) 
TRIPLE(1,2,2) 
TRIPLE(2,2,2) 


1 
2 
3 
4 

! 1 

7 
8 


TABLE (1,1) 
TABLE (2,1) 
TABLE (1,2) 
TABLE (2, 2) 


1 
2 
3 
4 



Figure 7-1 
Equiivalence of Array Storage 

Figure 7-1 also illustratjes that the statements 
EOUTVALENCE (TAlBLE ( 1 ) ,TRIPLE (4) ) 

and 

EQUIVALENCE (TRIPLE ( 1 , 2 , 2) , TABLE(4)) 

result in the same alignrnjent of the two arrays. 



Eqiiivalencing arrays with! non-unijw lower b^unils w^rks .in a ^iftilar 

fashiott. .For example, »n ifi'my delined as h(2t'St4) is a sequence of 8 

valaei5. A refeirepce to fflC2V2) refers to the thlr4 element in the 

. seguence. .tt «ri,»y ,AjZ!3*#'<i ift' t:o share 'storage with array B(2j4,4). 

the tollowlng stutesien't" q'an fce' used.' " . '. ' ^ ' 

•' . MmivhmiCE ikm,'iii^h' '■*'"' '' "'.' :-.";"' ' ■ . 

^fhe entire arra^ & osgiguglfes a portion of the storage space allocated 

I to) array B as illustrated. |n figure ?-2. iiote also that tQUiVALENCE 

:jh, B(3}) and. EgUlVALSKC^ |B.C'l^) » *|,3i<4>), wduW have, caused tihe same 

', alignment of arrays, " - ^ -. .- 



yt" 






Array, B 



Itrrjiy' 
fleateBt 



'•■(2^1) 

mi, I) 

if443 
B$2r3} 
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2 
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7.5.2 EQUIVALENCE and COMMON Interaction 

When components are made equivalent to entities stored in common, the 
common block can be extended beyond its original boundaries. An 
EQUIVALENCE Statement can only extend common beyond the last element 
of the previously established common block. It must not attempt to 
increase the size of common in such a way as to place the extended 
portion before the first element of existing common- For example: 

Valid Extension of Common 



DIMENSION A{4) ,B(6) 

COMMON A 

EQUIVALENCE (A(2),B(1) 



A(l) 



A{2) 



B(l) 



A(3) 



B(2) 



A{4) 



B(3) 



B(4) 



B(5) 



B{6) 



Existing 
Common 



_>^ 



Extended 
Portion 



Illega" 'extension of Common 



DIMENSION A(4) ,B(6) 

COMMON A 

EQUIVALENCE (A(2),B{3)) 



A(l) 



e^ 



A(2) 



B(3) 



A(3) 



B(4) 



A{4) 



B(5) 



B{6) 



Extended 
Portion 



Existing Common 



Extended 
Portion 



If two components are assigned to the same or different common blocks, 
they must not be made equivalent to each other. 



7.5.3 EQUIVALENCE and L0GICAL*1 Arrays 

If an element of a L0GICAL*1 array that is not aligned on a word 
boundary is equivalenced to an array or variable of another data type, 
it can cause that variable or all elements of that array not to be 
aligned on word boundaries. If this occurs, an attempt to reference 
that variable or those array elements causes an error during execution 
of the program. 



ERNAL 



7.6 EXTERNAL STATEMENT 

The EXTERNAL statement permits the use of external procedure names 
(functions, subroutines, and FORTRAN Library Functions) as actual 
arguments to other subprograms. 

The EXTERNAL statement has the form: 

EXTERNAL v[,v] .. . 

V is the symbolic name of a subprogram or the name of a dummy 
argument which is associated with a subprogram name. 
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The EXTERNAL statemenb declares each name in the list to be the name 
of an external procedure. Such a name can then appear as an actual 
argument to a subprogram. The subprogram can then use the associated 
dummy argument name in a function reference or a CALL statement. 

Noce, however, that a complete function reference used as an argument 
(such as CALL SUBR(A,SCR!r(E) ,C) , for example) represents a value, not 
a sjubprogram name; the function name need not be defined in an 
EXTERNAL statement. 



Example 



Main Program 
EXTERNAL SIN, COS, TAN 

CALL TRIG (ANGLE, SIN, SINE) 

CALL TRIG (ANGLE, COS, COSINE) 

CALL TRIG (ANGLE, TAN, TANGNT) 



Subprograms 

SUBROUTINE TRIG (X,F,Y) 

Y = F(X) 

RETURN 

END 



FUNCTION TAN (X) 

TAN = SIN(X) / COS(X) 

RETURN 

END 



The CALL statements pass the name of a function to the subroutine 
TRIG. The function is subsequently invoked by the function reference 
F(X) in the second statement of TRIG. Thus, the second statement 
becomes in effect: 



Y = SIN(X) 

Y = COS{X) 

Y = TAN(X} 



or 



depending upon which CALL ' statement invoked TRIG (the functions SIN 
and COS are examples of trigonometric functions supplied in the 
FORTRAN Library.) 



In FORTRAN IV-PLUS, <in asterisk (*) can precede a name in the EXTERNAL 
■'^'Ktatemenc list to designate that the name is that of a user Bijypplied 
FlWCTtON or SUBRDUTIHE subprogram and is noc the name of a FORTRAN 
library Junction. See Section 8.2 on FORTRAN Library Functions for 
additional discussion. 

"■ . ■ - ...'". •'.■-. 

EXTERNAL [*]v{,|*]vl... 



^x«nr{Sl« t 



■is e4)« symbolic name' of a subprogiam . 



&jiTfiR»AL toe, *B IV , *TANH , LpHA 
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DATA 

7.7 DATA STATEMENT 

The DATA initialization statement permits the assignment of initial 
values to variables and array elements prior to program execution. 

The DATA statement has the form: 

DATA nlist/clist/( [ , ] nlist/clist/] . . . 

nlist is a list of one or more variable names, array names, or 
array element names separated by commas. Subscript 
expressions must be constant. 

clist is a list of constants. 

Constants in a clist have the form: 

value 



n * value 

n is a nonzero unsigned integer constant that specifies the 
number of times the same value is to be assigned to successive 
entities in the associated nlist. 

The DATA statement causes the constant values in each clist to be 
assigned to the entities in the preceding nlist. Values are assigned 
in a one-to-one manner in the order in which they appear, from left to 
right . 

When an unsubscr ipted array name appears in a DATA statement, values 
are assigned to every element of that array. The associated constant 
list must therefore contain enough values to fill the array. Array 
elements are filled in the order of subscript progression. 

When Hollerith data is assigned to a variable or array element, the 
number of characters that can be assigned depends on the data type of 
the component, as shown in Table 2-2. If the number of characters in 
a Hollerith constant or alphanumeric literal is less than the capacity 
of the variable or array element, the constant is extended on the 
right with spaces. If the number of characters in the constant is 
greater than the maximum number that can be stored, the rightmost 
excess characters are not used. 

When a Radix-50 constant is assigned to a variable or array element, 
the number of bytes that can be assigned depends on the data type of 
the component, as shown in Table 2-2. If the number of bytes of the 
Radix-50 constant is less than the length of the component, ASCII null 
characters (zero bytes) are appended on the right. If the number of 
bytes of the constant exceeds the length of the component, the 
rightmost excess bytes are not used. 

The number of constants in a constant list must correspond exactly to 
the number of entities specified in the preceding name list. The data 
types of the data elements and their corresponding symbolic names must 
agree (except in the case of alphanumeric and Radix-50 data) . 

The DATA statement must not be used to assign initial values to 
VIRTUAL arrays or to VIRTUAL array elements. 
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^ f ORTItAN IV-PLUS converts the constant to the type of the variable 
beinci initialized. 



t 



Example 



INTEGER A(10) ,BELI^ 

DATA A,BELL,STARS/10*0,7, •****'/ 



The DATA statement assigns zero to all ten elements of array A, the 
value 7 to the variable BEJjL, and four asterisks to the real variable 
STARS. 



ST.- : *«:*' 



, , -J-t . 






PARAM{ 



8 l^hBKmfM MTk^EHEm 

■e l^AiU^ETfiR statemeht allowa a copst'imt to '.W gi'veft_'« 



llHie I^AI^MiTBi s'tatemetif has, the .forpj 



'symboiib iiMBe .,','' 



'''■"' '¥' 



mi^iifEK • ,p«c ;l,]p-c] 
Is i ©yftbollc name. 

li a csonstdftt. 



-In — ir is;;,' 



i- -v! I: 



4 .'rj- ,: 



I, , •<•-% k ' , 



lisC fpttjol Ic oaae,r g» foecoftes a constant' and is 'lefljiei? _«e"tJ»e, '^t^^-ae 

i^fr .a 'fj^i&^lic 'nartie %b fle'f'ined as a constant, it cati ia^pear "lft'/#:ny 
^ »%Mlott' tKai-t, a constant /isj allot»eai ,the- effect Is'tfie sa»e atf |i the 

!roKi<:ifnt •'fer* ^jfitten' the ire j Instead of the' na«e. ' •>■■"■-:-_•■ ,'"'"' 

if'" iijlibiollc' na«e of :a cons|:'ant'' ca^ spi^ar *f patt" ,of "'aiiottier 

"iltflS'ttt esccept " that the symbolic 'name of a real constant' ma^ appear 
il'%iaJ or Aaia^ihary part' of a compiek constant. _ _ _^_^^ ,_^^^^ 

|jp»i3i(i4Q naroe in a " MIUV»Ef EH^^ is ta tewent «ost not .be 'uf*^" to '"Identify 

1iytikitt|i other than its <*0rres|H3inding constant in that i>c*jgr«n Sriit. 

w:K i nime cannot appear ^ore than once in fAHAiiEfEfi statements 

tl-^ili' the same program unit and therefore cannot be uSea "as a 

tttfkKt in a PARAMETER stajtewent. .^ ^ " _\'^r ^ 

la^ ipfibolic na«e of a constant assuines the type impiied in the form 
i'''*'t|"!!i.«orresponding constant. ^Wie initial letter of the name lias no 
WtMKit'^n its type. Symbolic names' of constants cannot i^ppear in type 
"^^wiifeion statements except in dimension declarator expressions 

plIpjLn "airray declarators. 
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OGRAM 

7.9 PROGRAM STATEMENT 

The PROGRAM statement, if used, assigns a name to a main program unit. 
The PROGRAM statement has the form: 
PROGRAM nam 

nam is a symbolic name. 

The PROGRAM statement must be the first statement in the main program; 
its use is optional. The symbolic name may not be the same as the 
name of any entity within the main program and it must not be the same 
as the name of any subprogram, entry, or common block in the same 
executable program. 
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CHAPTER 8 
SUBPROGRAMS 



FORTRAN subprograms are divided into two general classes: those that 
are written by the us$r and those that are supplied by the FORTRAN 
syEitem. Subprograms are also grouped into the categories of 
functions, which includes both arithmetic statement functions and 
FUNCTION subprograms, and subroutines. 



8 . ]. SUBPROGRAM ARGUMENTS 

Arguments to subprograms are represented in two ways: dummy arguments 
and actual arguments. Dummy arguments are used in the subprogram 
definition to represent the corresponding actual argument. Dummy 
arguments appear in the FUNCTION statement, SUBROUTINE statement or 
arithmetic statement function definition as unsubscripted variable 
names. Actual arguments appear in the function reference or CALL 
steitement that references the subprogram and provide actual values to 
be used for computation. Actual arguments can be constants, 
variables, arrays, array elements, expressions or subprogram names. 

Actual and dummy arguments become associated at the time control is 
transferred to the subprogram. Actual and dummy arguments that become 
associated must agree in data type. A dummy argument declared as an 
array can only become associated with an array or array element. 

If an actual argument is a constant, expression or subprogram name, 
the subprogram must not alter the value of the corresponding dummy 
argument. 

Dummy arguments must not appear in COMMON, EQUIVALENCE or DATA 
statements. 



8 . 2 USER-WRITTEN SUBPROGRAMS 

Control is transferred to a function by means of a function reference 
while control is transferred to a subroutine by a CALL statement. A 
function reference is the name of the function, together with its 
arguments, appearing in an expression. A function always returns a 
value to the calling program. Both functions and subroutines may 
return additional values via assignment to their arguments. A 
subprogram can reference other subprograms, but it cannot, either 
directly or indirectly, reference itself. 
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8.2.1 Arithmetic Statement Function (ASF) 

An arithmetic statement function is a computing procedure defined by a 
single statement, similar in form to an arithmetic assignment 
statement. The appearance of a reference to the function within the 
same program unit causes the computation to be performed and the 
resulting value to be made available to the expression in which the 
ASF reference appears. 

The arithmetic statement function definition has the form: 

f {[p[,p]..-])=e 

f is the name of the ASF. 

p is a dummy argument. 

e is an expression. 

The expression is an arithmetic expression that defines the 
computation to be performed by the ASF. 

A function reference to an ASF has the form: 

f ([p[,p]...]) 
where f is the name of the ASF, and each p is an actual argument. 

When a reference to an arithmetic statement function appears in an 
expression, the values of the actual arguments are associated with the 
dummy arguments in the ASF definition. The expression in the defining 
statement is then evaluated and the resulting value is used to 
complete the evaluation of the expression containing the function 
reference. 

The data type of an ASF is determined either implicitly by the initial 
letter of the name or explicitly in a type declaration statement. 

Dummy arguments in an ASF definition serve only to indicate the 
number, order, and data type of the actual arguments. The same names 
may be used to represent other entities elsewhere in the program unit. 
Note that with the exception of data type, declarative information 
(such as placement in COMMON or declaration as an array) associated 
with such an entity is not associated with the ASF dummy arguments. 
The name of the ASF cannot be used to represent any other entity 
within the same program unit. 

The expression in an ASF definition may contain function references. 
If a reference to another ASF appears in the expression, that function 
must have been defined previously. 

Any reference to an ASF must appear in the same program unit as the 
definition of that function. 

An ASF reference must appear as, or be part of, an expression? it 
must not be used as the left side of an assignment statement. 

Actual arguments must agree in number, order, and data type with their 
corresponding dummy arguments. Values must have been assigned to them 
before any reference to the arithmetic statement function. 
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ASF Definitions 

VOLUME (RADIUS) = 4 . 189*RADIUS**3 

SINH(X) = (EXP{X)-EXP{-X) )*0.5 

AVG(A,B,C,3. ) = (A+B+C)/3. (Invalid; constant as dummy 

argument not permitted) 

ASF References 



AVG(A,B,C) = (A+B+C)/3. (Definition) 



GRADE = AVG(TEST1,TEST2,XLAB) 

IF (AVG(P,D,Q) .LT.AVG(X,Y,Z) ) GOTO 300 

FINAL = AVG(TEST3,TEST4,LAB2) (Invalid; data type of third 

argument does not agree with 
dummy argument) 



8.2.2 FUNCTION Subprogram 

A FUNCTION subprogram is a program unit that consists of a FUNCTION 
statement followed by a series of statements that define a computing 
procedure. Control is transferred to a FUNCTION subprogram by a 
function reference and returned to the calling program unit by a 
RETURN statement. 

A FUNCTION subprogram returns a single value to the calling program 
unit by assigning that value to the function's name. The data type of 
the value returned is determined by the function's name. 

The FUNCTION statement has the form: 

[typ] FUNCTION nam [*n] [ ( [p [ ,p] . . . ] ) ] 

typ is a data type specifier. 

nam is a name of the function. 

*n is a data type length specifier. 

p is a dummy argument. 

A function reference that transfers control to a FUNCTION subprogram 
has the form: 

nam ([p[,p]...]) 

where nam is the symbolic name of the function, and each p is an 
actual argument. 
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When control is transferred to a FUNCTION subprogram, the values 
supplied by the actual arguments (if any) are associated with the 
dummy arguments (if any) in the FUNCTION statement. The statements in 
the subprogram are then executed. The name of the function must be 
assigned a value before a RETURN statement is executed in that 
function. When control is returned to the calling program unit, the 
value thus assigned to the function's name is made available to the 
expression that contains the function reference, and is used to 
complete the evaluation of that expression. 

The type of a function name may be specified implicitly, explicitly in 
the FUNCTION statement, or explicitly in a type declaration statement. 
The type of the function name as defined in the FUNCTION subprogram 
must be the same as the type of the function name in the calling 
program unit. 



The FUNCTION statement must be the 
subprogram. It must not be labeled. 



first statement of 



function 



A FUNCTION subprogram must not contain a SUBROUTINE statement, a BLOCK 
DATA statement, or a FUNCTION statement other than the initial 
statement of the subprogram. 



Example 



FUNCTION ROOT (A) 
X = 1.0 
2 EX = EXP(X) 

EMINX = l./EX 

ROOT = ({EX+EMINX)*.5+C0S{X)-A)/{(EX - EMINX) *. 5-SIN (X) ) 

IF (ABS(X-ROOT) .LT.lE-6) RETURN 

X = ROOT 

GO TO 2 

END 

The function in this example uses the Newton-Raphson iteration method 
to obtain the root of the function: 



F{X) 



cosh(X) + cos{X) - A 



where the value of A is passed as an argument. 
for this root is: 



The iteration formula 



Xi+1 = Xi - 



cosh{Xi)+cos (Xi)-A 



sinh(Xi)-sin(Xi) 

/hich is repeatedly calculated unti] 
Ci+1 is less than 1 x 10"*>. Tht 



which is repeatedly calculated until the difference between Xi and 
Xi+1 is less than 1 x 10"^^ The function makes use of the FORTRAN 
Library functions EXP, SIN, COS, and ABS. 



8.2.3 SUBROUTINE Subprogram 

A SUBROUTINE subprogram is a program unit that consists of a 
SUBROUTINE statement followed by a series of statements that define a 
computing procedure. Control is transferred to a SUBROUTINE 
subprogram by a CALL statement and returned to the calling program 
unit by a RETURN statement. 
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The SUBROUTINE statement has the form: 
SUBROUTINE nam [ { ip[ ,p] . . . ] ) ] 

nam is the name of the subroutine. 

p is a dummy argument. 

The form of the CALL statement is described in Section 4.5. 

When control is transferred to the subroutine, the values supplied by 
the actual arguments (if any) in the CALL statement are associated 
with the corresponding dummy arguments (if any) in the SUBROUTINE 
statement. The statements in the subprogram are then executed. 

The SUBROUTINE statement must be the first statement of a subroutine; 
it must not have a statement label. 

A SUBROUTINE subprogram cannot contain a FUNCTION statement, a BLOCK 
DATA statement, or a SUBROUTINE statement other than the initial 
statement of the subprogram. 

Example 

Main Program 

COMMON NFACES, EDGE, VOLUME 

ACCEPT 65, NFACES, EDGE 
65 FORMAT ( 1 2, F8. 5) 

CALL PLYVOL 

TYPE 66, VOLUME 
6 6 FORMAT ( ' AVOLUME= ' , F ) 

STOP 

END 

SUBROUTINE , Subprogram 

SUBROUTINE iPLYVOL 

COMMON NFACIeS, EDGE, VOLUME 

CUBED = EDGE**3 

GOTO (6, 6, 61, 1,6, 2, 6, 3, 6, 6, 6, 4, 6, 6, 6, 6, 6, 6, 6, 5, 6), NFACES 

1 VOLUME = CUBED * 0.11785 
RETURN 

2 VOLUME = CUBED 
RETURN 

3 VOLUME = CUBED * 0.47140 
RETURN 

4 VOLUME = CUBED * 7.66312 
RETURN 

5 VOLUME = CUBED * 2.18170 
RETURN 

6 TYPE 100, KFACES 

100 FORMATC NO REGULAR POLYHEDRON HAS ', 13 , 'FACES .' /) 
RETURN 
END 

The subroutine in this es^ample computes the volume of a regular 
polyhedron, given the number of faces and the length of one edge. It 
uses the computed GO TO stjatement to determine whether the polyhedron 
is a tetrahedron, cube, dctahedron, dodecahedron, or icosahedron, and 
to transfer control to the proper procedure for calculating the 
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is a tetrahedron, cube, octahedron, dodecahedron, or icosahedron, and 
CO transfer control to the proper procedure for calculating the 
volume. If the number of faces of the body is other than 4,6,8,12, or 
20, the subroutine displays an error message on the user's terminal. 








.»*;.♦ . 8OTRY Statement ■'■'■'' ..^ 

•f^.fi J^f^!^ . ■—'■■' ■.-■:■ ^^-J^M 

K;1lSMlf. .UuSitS statement provides multiple entry " pblrttfl WftlSin 

' tftibjpcoj^rJUB,. tt is not executable and can appear within 'a f unc'tioiif ^^'IP 

s«ibtp,tttiri« program after the FUNCTION or SOBaoOTI^E ffcutemeiif;^'^] 

' "oft of a subprogram referenced by an entry name beginii ift|li^^Sj^| 



<%:' Sixa^ JexQclutable statement following the ENTR^ statement'.' 






.^$|»j| .EH^miT ata cement has the form: 
fW ^.\ V '-SNTfty nam { ( [p f ,p] . . . ] ) 1 
.. '* iiMt ijs the entry name. 
■]& i« a dummy argument. 



f^l 



Ui^FS^^^ PEfRt statement cannot appear within a DO loop. 



" ■*""- j;.„,.tlft'yry names appearing in 



' * ..Ije *> 




ENTRY Statements within SyBROOTtNB. 
referenced by CALL statements, and entry names „ 
Jrppiaring in ENTRY statements within FUNCTION subprograms must be " 
,jrefcl)^etiC(^ as external function references. 



silJi^dgrams must be 



'SSI 



^ -fl 






.ft funeticui entry name can appear in a type declaration statement* 

used 



% 



aa 



■j^a^entry name can appear in an EXTERNAL statement and be used a^ 
^ .^^,,^ ' me'tuaX argument; the entry name in an ENTRY statement cannot be a 

|M'''*^''"-'^**'™y argument. 

i'*^"^'. fin try names cannot appear in executable statements that physically 
^*"5| precede the appearance of the entry name in an ENTRY statement 



^ 



y| 









-I •■' i 



■ft. J. j^'i^'*'^ 



:!rr--. 



'^Wia' order jf. number, type and names of the dummy arguments in an ENTRYrJ 
irfttattettenC. can be different from the order, number, type and names of.) 
V the, duiamy arguments in the FUNCTION statement, SUBROUTINE s ta temen t , ;:j 

and other ENTRY statements in the same subprogram. However, each | 

reference to a function, subroutine, or entry must use an actua.X_1 
'Argument list that agrees in order, number and type with the dummy"', 

,«rgument list in the corresponding FUNCTION, SUBROUTINE, or, ENTRY^," 
..Btatement. , . . ,. . . 

-■•.'"".'-■, • ' " "" ''..•■ 

•I'V '.'•'■ :. -''' • '" ' '• ' :it 

ft. 2.4.x ENTRY in Function Subprograms - All entry named within a^ 
funcl^ion "sabprogram are associated ^with the name of the functiOf 
eybpirbgram.. Therefore, definition of any entry name or the name oi 
.the ,, function subprogram causes definition of all the associated hame^".] 
that are of the same type and causes all associated names that are "^q.^^ 
-different type to become undefined. The function and entry names itw^^ 
hot required to be the same type, but at the execution of a RETUl^e^^ 
^statement or the implied return at the end of the subprogram, the .nai^fj'* 
■used to reference the function subprogram must be defined. Note' that" 
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^K etitr^ name cannot appear Iri eKecutable state'inents that precede the 
-^bpearance^of the entry name in an ENTRX st«itemen't';'\ 

., ■ "/ A •' -'t j^ %-■■ ^ ..='•--.■' j; ' .-'f-> ,- ^ , ,'''.^" - ^-, T'lir J. .fV. '- .,'' ,* i'--'»<t . . 
J..2,'4,2 SSTBy jftod Arftv feclaratpr thbecaction -ft 'dMramy argument is 
^ttftdefinea if it ie not currently associated witli an actual argument. 
'«n adjustable array is undefined ,if the dummy argument array ~ ie not 
^currently associated with an actual argument array or if any of the 
f^ariables appearing in the adjustable array declarator are not 
turre;itly associated with ^ 91^ .actual argument or are poc. in a COMMON 
^^t^lpisk. Note that there is no retention of argument association 
|fp^t-»eeft one reference of a subprogram and the next reference of tfjat 
g sub program. Consider the following example; 

' , - ■ ' " BUBROUTWE i(A,l,J) 

DIMEHgtON kn.) '" , J . 

A(I) m a -.'^ 
ENTRY eiCT;"i4,K,L) 
A(I) • AH) '+ 1 ■ 

*I£ 5 is a real array with 10 elements, as in ' ,,' . 

DIMENSIONrsllO) ' " " 

5 'then the statement - . . - 

1^ ' ' ..•;.--.. ; /f ■ ; ; ■ - ;■'•<': 

^- - CALL S(B,2,3) - - - .<-..- 

I- . . s ' * I . ._ . _._._. .,o;;i,; 

f-weu.Ld set B(2) - 3 and che statement 

•- ... . '.. I .'■■'."'''-, • \k% . 
CALL 81(5*6,3,2) 

l^ouJLd increment B(5) by 1. - 

\^ single function routine that provides the hyperbolic functions sinfe,, 
cosh, and tanh appears in iPigure 8-1. 
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C 

c 

c 
c 
c 



c 
c 
c 



c 
c 
c 






TANE - Tsimdf / Postfix) 

RETUR» 

COMPUTE SINH 

ENTRY SIHH(X> 

STNH - fStNB(X> / 2.0 

RETURN 

COMPUTE COSM 

ENfRY posa(Ji) 

COSB ■ TCOSH(X) / 2.0 
RETURN 

"END 










.•4,5. 



"»*-;' 






'.'••■',' ' ' , Figure i~i ' "' .. ; 

Kol'tiple Functions in a Single Function Subprofram 



•:;f"- 



BLOCK 
DATA 



8.2.5 BLOCK DATA Subprogram 

The BLOCK DATA subprogram is used to assign initial values to entities 
in labeled common blocks, at the same time establishing and defining 
those blocks. It consists of a BLOCK DATA statement followed by a 
series of specification statements. 

The BLOCK DATA statement has the form: 

BLOCK DATA [nam] 

nam is a symbolic name. 

The statements allowed in a BLOCK DATA subprogram are: Type 
Declaration, IMPLICIT, DIMENSION, COMMON, EQUIVALENCE, and DATA 
statements. 

The specification statements in the BLOCK DATA subprogram establish 
and define common blocks, assign variables and arrays to those blocks, 
and assign initial values to those components. 



A BLOCK DATA Statement must be the first statement of a 
subprogram. It must not be labeled. 



BLOCK DATA 
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A BLOCK DATA subprogram must not contain any executable statements. 

If any entity in a labeled common block is initialized in a BLOCK DATA 
subprogram, a complete set of specification statements to establish 
the entire block must be| present, even though some of the components 
in the block do not appear in a DATA statement. Initial values can be 
defined for more than one block by the same subprogram. 



Example 



BLOCK DATA 

INTEGER S,X 

LOGICAL T,W 

DOUBLE PRECISION U 

DIMENSION R(3) 

COMMON /AREA1/R,S,T,U/AREA2/W,X,Y 

DATA R/1. 0, 2*2. 0/,T/. FALSE. /,U/0.214537D-7/,W/. TRUE. /,Y/3. 5/ 

END 



8 .. 3 FORTRAN LIBRARY FUNCTIONS 

The FORTRAN library functions are listed in Appendix B. Function 
references to FORTRAN library functions are written in the same form 
as function references to user-defined functions. For example, 

R = 3.14159 * ABS(X-l) 

causes the absolute value of X-1 to be calculated, multiplied by the 
constant 3.14159, and assigned to the variable R. 

The data type of each library function and the data type of the actual 
arguments is specified in Appendix B. Arguments passed to these 
functions may not be array names or subprogram names. 



8.3.1 Pio.ceasor-De-^ined Function References 11 .. 

the FOftfjykif Jifarary function names are called procesisof Tj3*eEinea 
function . J PDF) nanes. Note that the processor-deflnecl fvjnctions 
include t>otK the Tntrinsic functions and the Basic External .JCuRctions 

defined in Stftndard POBTRAH and are treated in a uniform manner. 

... , ; ..ta ■ ■'■'•■;■ I A. , • 

,,.* name a|>i>ear|.ng in ,^he table ot PDF , names normally 'refers . jp ' the 
i. TORTRAN. library .^fu'nctiori,. The name is assuiped tQ ' ^ftEer , fco a 
- us^r'-'defined function j,f ai^:y of the following conditions .ejkjstss 

'- , " - '-*.* - » ■ ■^ , ' ■ - , . '■ - ■ "^"u '■■'iv i" '< ■»'■■ ■ 

1, 'UBiH^oame appear? In a tyfpe declaration atatemiht gjwiciSyana' a 
•.V#yp*,j8if^f«''ent Jf'Oin the result type shown in tfte t*fe^li?r 



" "'~'^ 



-cr^:'- 



2," ifi»(8'.fl«m«5. a,pp6ax:e in an exteRIsal statement "pceceAea „ by «n 

3, iSSie ■;$a«i?.'lB Vsed in a funftion r'eference with tjy^mij^afep of a 
< "^ .afif|frent.t,jrpe tl>an shown in the table. ,. ^:., ., : 
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Pi:a«^Siror-d*lin^ '.function referenceB are local to the program unit in 
which' thex ocpuf and do hot affect or preclude the use of the name for 
anyoltfer pttf|roae in other program units. 



C^.-^m 



Bfia^^|^%-^inS|i^' In an' EXTERNAL" »^ Y^*^*^.* preceding ^asterisH 



Tftilir^' tH name refers to' a function Or subroutine that .wilJ:;|. 

i*lr:^':,th« viiec , and the name becomes a'' global name in tht^ 

|!'$#rW*l'lt%" n»w«s of functipna and subroutines are global* ;^^ 




»^^ ..- ... 



'-f- 



ivlvy^' ^ehyVic. FUnctlion References '"";; 

<ilnkcjt<^ ,£<i.n$^t|;ofi.i|affle^ provide a means by which some of the FORTRAK 




^, , i*iil refereqc 

dfliobl^; precision variable then STN(D) will reference the double 
precTsion ,sifte function; it is not necessary to write DSIN(D). 






6^€Utic fyrieiVfprt. selection is performed independently for each 
fuft"cl|f>n ^iiejC^niGlt* so that in the example above, both STN(X) and 
dUt'CiCiili can oe uiwrd in the same program unit. 

Q3|# ir^ctiojni names for which generic name selection will be performed 
■ 'ig$'2'm^W' ^ .T<|bie 8--1. Generic function selection may only be used 
wlW.i^argfflllenfc' "types shown in the table. 

irfie ,|j^e^ ^^g'w' in Table 8-1 will lose the generic function selection 
pt'Oj^tty if tised in a program unit in any of the following ways: 

.■^»^v^',^;^'''ii^>''*^;^e' d^eciaration statement 

/;^,^y',-V-^^'-'.' ..■"*i '-*''';i ' '• • ' ' ,■ 

~^'-''j^'i^,M^\ §ff'\M9! niriiie of Bin arithmetic statement function 

■j .; T 3fe» Ai©.,#"d'wiRn>y argument name, common block name, variable or 

.^'.Q\f--?.~ •j^c'ay 'name." ■ 

l^silMjB.geneHe name in an external statement does not affect generic 
^iM3^MlV,,V^,f*?£i9J^ for function references. When one of the generic ' 
-^W<^S^ft*JWk«e§Jjs"qsed.,in an actual argument list as the name, of a 
w .<p<..-t^.^ ,^|^ ^^^^*gg^g^, ^jj^j. use of the name is not subject to generic . 

>_^^jp,-^biJ JfKfll'* is j)0 argumeht list on which to base a selection) and 

|^7niB#"^4B/;i;^V#iftC accorjiiilng to the rules for non-gene/ ic FORTRAN 
' SSitfl<f-%lBPi^ ai ll«,icr ibed , in tbe pr eCed ing sec t ion . , 

*^'"liM ^C^t|i?i"e<^jt<j/*^n<^^ *=° *i*»« program unit in 

^J^S%lr^"kf.:<^~ does not. affect or preclude the use of that name 
•fti; i ii|tlHr|:itt^''N![!ifl?I>rogrW ni^^ block name, and so dn« in ; 

%ii|H?i^oiuc#sfe9-^ .■'^:.'' •■■"■.■'■. ■.' .•- ' ■ "■ 



-^ 
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r 



Table 8-1 ' 
Generic Function Name Summary 





Symbolic Name ,.'..' 


Type of 
Argument 


Type of 
Result 


1 "^ ■ 


ABS ,; 


Integer 
Reel 
Double 
. Complex 


Integer 
Real 
Double 
Real 

■ 


1- ^ . 


AINTi ANXMT 
• .- 


Real 
Double 


Real 
Double 




INT, NINT 


Real 
Double, 


Integer 
Integer 




SNGL ' ■]" 

. 1. 1 


Integer 
Double 


Real 
Real 


- 


DBLG 


Integer 
Real 


Double 
Double 


■ 
1 


HOD, MAX, NIM, EStGN, and DIH 


Inteser 

.«eal 

Double 


Integer 

Real 

Double 


5: 


EXP, LOG, SIN, COS, and 'SQRT 


iteal 

Doable 

CMiplek 


Real 

Double 

complex 


,-'<: ' 


I.DGlfl, l-AM, ATAK, ATAN2, AS IN, 
ACOS. SINH, COSiif, and TANH 


Keal ' 
Double 

'> ■■■■ ■' ■« " 


Real 
Double 



.lal 



t'. 



B . 3 . 3 ^ep'erJLC and' Procesjjor -De fined F'uric^ion O^aqe 



The examj>le in Figure B-2 illustrateB the . us^ of generic and 
J -procesBor-def Ined function, references., ttie paine SIN Is used in four 
distinct ways in che figure to emphasise the, ' local and global name 
.propertieci of. eaph type of u^e within « single executable prograin: 



1* A6 the n^me of an ar ithmel^ic ajtstement 
]v 2» ' A8 « generic ifuocti.oii r.«fer.eric« ^ , 

'% ■ - . . ». - ■,*'•- '" ■■- te. .•'"^ 



f unc tio^n 



. ■!*• 



^- 



3» A'b A procestor-d^f'ined functioo' reference 
4. M « usor.'-cMfined function 
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- >i-!?l* 



-"-Si 



C 

c 



FORMAT {5PioJmr\,,. . 

END . /*- ' *^r ' ''^ *"' 



SOBROUTINe COHPUT(Y) 

REAL*8 X 
C NOTE 3t HAi^ Pfcp SIN EXTERNAI. FOR USE AT NOTE 5. 

EXTERNAL SIN 

COMMON V(3) 
C ROTE 4$ GENERIC REFERENCE TO 0.P» SINE 

V(l) - SIN(Y) 
C NOTE 5: PDF SINE AS ACTUAL ARGUMENT. 

CALL §Oe(y,SIN) 
:♦ ' ■ END " ; i. ' 



c ^ . '■ .. ■ r- ' ■ .' 

-"'' SUBROUTiNg SUB(A,SJ 
C NOTE 6; DECLARE SIN. AS.SA^fE Of USER FUNCTION. 

. EXTERNAL *SIN "' ' , 
C NOTE. 7i. DBCLfSE SIN AS. TXPE RBAI^^S. 

,-..CV:-'»eAL*8 A, SIN, . ' . ,, 
jW ■■-•tS»IMON V(3> *'"'•'• 
C mmS f.i EVA.LPATI; PDF SIN PASSED AT NOTE 5. 

- „" t.-¥C'2) • S|AJ 
C NOTE $1 EVAtOATB USEI .DEFINED SIN PWCTION, 
.-■ , V(3) - SINtA) ._ ;;i. 
"* ' '" " END '*•■ ^.1"'" *' ' 



#"- 



"■'■t':.". 






,9. .i%E Iftf , DEflfiE .TH|S^!ja^R,S;N. FUNCTION^ ^,. , , 

;V;/"*ftM >. * tJM/Afemt'ai *.X*?5/PACT9P.(5)^ 






•..>^4?!.'>'lfoffei#i runctlon.. Name usage- - ^^ , ^ -.^ 
/;-'*:ek:v--{*'otes are di9C««Bed;in the fcexfc*i^..,.,^^,>. ,.. 
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SUBPROGRAMS 

Th« following comments elaborate on the notes contained in Figure 8-2. 

Kote - . .' Comment 

t - . , ' » 1 

2. 1. An arithmetic Btatement function named SIN is defined in 
f t«riRB of the generic function name COS. Since the argument 

?: of COS is double precieion, the. double precision cosine 
•iflinction will be evaluated. 

■J, The arithmetic statement function SIN is called. 

^^ The name SIN'' is declared external so chat the single 
precision processor-defined sine function may be passed as an 
.;' actual argument at note 5. 

4. The generic, funttion name SIN is used to reference the double 
,, precision eine function. 

Sv,./, Jhe single precision processor-defined sine function is used 

- 'ri5:; ft? an actuaj." argument. 

6r The' name SIN is declared a user-defined function name, 
ft Tlie type of StN is declared to be double precision. 

8. The single precision sine function passed at note 5 is 
evaluated, "^ _ 'i 

9. The user-dffined BIN function is evaluated, 

10. The user-defined SIN function is defined as a simple Taylor 
series using a user -de fined function FACTOlR to compute the 
factorial function. 
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APPENDIX A 
CHARACTER SETS 

A.l FORTRAN CHARACTER SET 

The FORTRAN character Bet consists of: 

1. The letters A through Z and a through z 

2. The numerals through 9 

3. The following special characters: 

Character Name 

A Space or Blank or Tab 

= Equals 

+ Plus 

- Minus 

* Asterisk 

/ Slash 

( Left Parenthesis 

) Right Parenthesis 

, Comma 

Decimal Point 

' Apostrophe 

" Double Quote 

$ Dollar Sign 

: Colon 

Left Angle fijracket 

,1 lifiit lingle Bracket 




A-l 



CHARACTER SETS 



Other printable characters may appear in a FORTRAN statement only as 
part of a Hollerith constant or alphanumeric literal. Any printable 
character may appear in a comment. 



A. 2 ASCII CHARACTER SET 



ASCII 
Decimal Char- 
Value acter 



Usage 






NUL 


1 


SOH 


2 


STX 


3 


ETX 


4 


EOT 


5 


ENQ 


6 


ACK 


7 


BEL 


8 


BS 


9 


HT 


10 


LF 


11 


VT 


12 


FF 


13 


CR 


14 


SO 


15 


SI 


16 


DLE 


17 


DCl 


18 


DC2 


19 


DC 3 


20 


DC4 


21 


NAK 


22 


SYN 


23 


ETB 


24 


CAN 


25 


EM 


26 


SUB 


27 


ESC 


28 


FS 


29 


GS 


30 


RS 


31 


US 


32 


SP 


33 


1 


34 


(I 


35 


# 


36 


$ 


37 


% 


38 


s 


39 


1 


40 


( 


41 


) 


42 


* 



FILL character 



CTRL/C 



BELL 

HORIZONTAL TAB 
LINE FEED 
VERTICAL TAB 
FORM FEED 
CARRIAGE RETURN 



CTRL/0 



CTRL/U 



CTRL/Z 

ESCAPE^ 



SPACE 



APOSTROPHE 



ASCII 
Decimal Char- 
Value acter 



Usage 



43 


+ 


44 


■ 


45 


- 


46 


. 


47 


/ 


48 





49 


1 


50 


2 


51 


3 


52 


4 


53 


5 


54 


6 


55 


7 


56 


8 


57 


9 


58 


: 


59 


r 


60 


< 


61 


- 


62 


> 


63 


7 


64 


<9 


65 


A 


66 


B 


67 


c 


68 


D 


69 


E 


70 


F 


71 


G 


72 


H 


73 


I 


74 


J 


75 


K 


76 


L 


77 


M 


78 


N 


79 





80 


P 


81 


Q 


82 


R 


83 


S 


84 


T 


85 


U 



COMMA 



ASCII 
Decimal Char- 
Value acter 



Usage 



86 


V 


87 


W 


88 


X 


89 


Y 


90 


Z 


91 


[ 


92 


\ Backslash 


93 


] 


94 


^ or + 


95 
96 


_ or -^ 

~ Grave accent 


97 


a 


98 


b 


99 


c 


100 


d 


101 


e 


102 


f 


103 


9 


104 


h 


105 


1 


106 


3 


107 


k 


108 


1 


109 


m 


110 


n 


111 





112 


P 


113 


q 


114 


r 


115 


s 


116 


t 


117 


u 


118 


V 


119 


w 


120 


X 


121 


y 


122 


z 


123 


{ 


124 


Vertical Lir 


125 


126 


"■ Tilde 


127 


DEL RUBOOT 



^ALTMODE (ASCII 125) or PREFIX (ASCII 126) keys which appear on some terminals are 
translated internally into ESCAPE. ____^___— — — — 
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A. 3 RADIX-50 CHARACTER SET 

Rad:Lx-50 is a special character data representation in which up to 

three characters from the Radix-50 character set (a subset of the 

ASCII character set) can be encoded and packed into a single PDP-11 
storage word. 

The Radix-50 characters and their corresponding code values are as 
follows : 

ASCII Octal 
Equivalent 

40 
101 - 132 
44 
56 

60-71 

Radix-50 values are stored, up to three characters per word, by 
packing them into single numeric values according to the formula: 

{ (i * 50 + j) * 50 + k) 

where "i", "j", and "k" represent the code values of three Radix-50 
characters. 

The maximum Radix-50 value is, thus, 

47*50*50 + 47*50 + 47 = 174777 

The following table provides a convenient means of translating between 
the ASCII character set and its Radix-50 equivalents. For example, 
given the ASCII string X2B, the Radix-50 equivalent is (arithmetic is 
performed in octal): 

X = 113000 

2 = 002400 

B = 000002 



Character 


Space 

A - Z 

$ 

• 

(Unassigned) 
0-9 



Radix 


-50 Value 


(Octal) 







1 


- 32 




33 




34 




35 


36 


- 47 



X2B = 1154,02 
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Radix-50 Character/Position Table 



Single Char. 






or 


Second 


Third 


First Char. 


Character 


Character 


Space 000000 


Space 000000 


Space 000000 


A 003100 


A 000050 


A 000001 


B 006200 


B 000120 


B 000002 


C 011300 


C 000170 


C 000003 


D 014400 


D 000240 


D 000004 


E 017500 


E 000310 


E 000005 


F 022600 


F 000360 


F 000006 


G 025700 


G 000430 


G 000007 


H 031000 


H 000500 


H 000010 


I 034100 


I 000550 


I 000011 


J 037200 


J 000620 


J 000012 


K 042300 


K 000670 


K 000013 


L 045400 


L 000740 


L 000014 


M 050500 


M 001010 


M 000015 


N 053600 


N 001060 


N 000016 


056700 


001130 


000017 


P 062000 


P 001200 


P 000020 


Q 065100 


Q 001250 


Q 000021 


R 070200 


R 001320 


R 000022 


S 073300 


S 001370 


S 000023 


T 076400 


T 001440 


T 000024 


U 101500 


U 001510 


U 000025 


V 104600 


V 001560 


V 000026 


W 107700 


W 001630 


W 000027 


X 113000 


X 001700 


X 000030 


Y 116100 


Y 001750 


Y 000031 


Z 121200 


Z 002020 


Z 000032 


$ 124300 


$ 002070 


$ 000033 


127400 


002140 


000034 


UNUSED 132500 


UNUSED 002210 


UNUSED 000035 


135600 


002260 


000036 


1 140700 


1 002330 


1 000037 


2 144000 


2 002400 


2 000040 


3 147100 


3 002450 


3 000041 


4 152200 


4 002520 


4 000042 


5 155300 


5 002570 


5 000043 


6 160400 


6 002640 


6 000044 


7 163500 


7 002710 


7 000045 


8 166600 


8 002760 


8 000046 


9 171700 


9 003030 


9 000047 
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APPENDIX B 
FORTRAN LANGUAGE SUMMARY 

B . 1 EXPRESSION OPERATORS 

Operators in each type are shown in order of descending precedence, 



Type 


Operator 


Operates Upon 


Arithmetic 


** 


exponentiation 


arithmetic or logical 




*,/ 


multiplication, 


constants. 






division 


variables, and 




+ ,- 


addition, subtraction 
unary plus and minus 


expressions 


Relational 


.GT. 


greater than 


arithmetic or logical 




.GE. 


greater than or 


constants, variables. 






equal to 


and expressions 




.LT. 


less than 


(all 




.LE. 


less than or 


relational operators 






equal to 


have equal priority) 




.EQ. 


equal to 






.NE. 


not equal to 




Logical 


.NOT. 


.NOT. A is true if and 


logical or integer 






only if A is false 


constants, variables, 
and expressions 




.AND. 


A.AND.B is true if 
and only if A and B 
are both true 






.OR. 


A.OR.B is true if and 
only if either A or 
B or both are true 






.EQV. 


A.EQV.B is true if and 


(precedence same 






only if A and B 


as .XOR.) 






are both true or A 








and B are both false. 






.XOR. 


A.XOR.B is true if and 


(precedence same 






only if A is true and 


as .EQV.) 






B is false or B is 








true and A is false. 
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B.2 STATEMENTS 

The following summary of statements available in the PDP-11 FORTRAN 
language defines the general format for the statement. If more 
detailed information is needed, the reader is referred to the 
Section (s) in the manual dealing with that particular statement. 

Manual 
Statement Formats Effect Section 

ACCEPT See READ, Formatted Sequential I't'l 

See READ, List-Directed 5. /.J 



Arithmetic/Logical Assignment 



v=e 

V 



is a variable name or an array element name. 



e is an expression. 



The value of the arithmetic or logical 
expression is assigned to the variable. 



Arithmetic Statement Function 
f ([p[,p].--3)'e 

f is a symbolic name. 

p is a symbolic name. 

e is an expression. 



Creates a user-defined function having 
the variables p as dummy arguments. 
When referenced, the expression is 
evaluated using the actual arguments in 
the function call. 



ASSIGN s TO v 

s is an executable statement label. 
V is an integer variable name. 



Associate the statement number s with 
the integer variable v for later use in 
an assigned GO TO statement-. 



3.1 
3.2 



8.2.1 



3.3 



B-2 



a 



FORTRAN LANGUAGE SUMMARY 

BACKSPACE u 5.9.2 

u is an integer variable or constant. 

The currently open file on logical unit 
u is backspaced one record. 

BLOCK DATA [nam] 8.2.5 

nam is a symbolic name. 

Specifies the subprogram which follows 
as a BLOCK DATA subprogram. 

CALL s[([a] [,[a]]...)] 4.5 

s is a subprogram name. 

is an expression, a procedure name, or an array name. 

Calls the SUBROUTINE subprogram with the 
name specified by s, passing the actual 
arguments a to replace the dummy 
arguments in the SUBROUTINE definition. 



CLOSE (p[,p]...) 5.9.7 

p is one of the following forms: 

UNIT = e 

DISPOSE = 'SAVE' or DISP = 'SAVE' 

DISPOSE = 'KEEP' or DISP = 'KEEP' 

DISPOSE = 'DELETE' or DISP = 'DELETE' 

DISPOSE = 'PRINT' or DISP = 'PRINT' 
ERR = s 

e is a numeric expression 

s is an executable statement label 

Closes the specified file. 

COMMON [/[cb]/] nlist [[,]/[cb]/nlist] ... 7.4 

cb is a common block name. 

nlist is a list of one or more variable names, array names, or 
array declarators separated by commas. 

Reserves one or more blocks of storage 
space under the name specified to 
contain the variables associated with 
that block name. 
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CONTINUE ^-^ 

Causes no processing. 

DATA nlist/clist/[ [ , I nlist/clist/] . . . '^•'^ 

nlist is a list of one or more variable names, array names, or 
array element names separated by commas. Subscript 
expressions must be constant. 

clist is a list of one or more constants separated by commas, 
each optionally preceded by j*, where j is a nonzero, 
unsigned integer constant. 

Causes elements in the list of values to 
be initially stored in the corresponding 
elements of the list of variable names. 



DECODE (c,f ,b[,ERR=s] ) [list] 5.10 

c is an integer expression. 

f is a FORMAT statement label or array name. 

b is a variable name, array name, or array element name. 

s is an executable statement label. 

list is an I/O list. 

Changes the elements in the I/O list 
from character into internal format; c 
specifies the number of characters, f 
specifies the format, and b is the name 
of the entity containing the characters 
to be converted. 

DEFINE FILE u (m , n , U , v) [ , u (m , n , U , v) ] . . . 5.9.4 

u is an integer variable name or integer constant. 

m is an integer variable name or integer constant. 

n is an integer variable name or integer constant. 

V is an integer variable name. 

Defines the record structure of a 
direct access file where u is the 
logical unit number, m is the number of 
fixed length records in the file, n is 
the length in words of a single record, 
U is a fixed argument, and v is the 
associated variable. 
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DIMENSION a (d) [, a (d) ].. . 7.3 

a(d) is an array declarator. 

Specifies storage space requirements for 
arrays. 

DO s [,] i = el,e2[,e3] 4.3 

s is the label of an executable statement, 
i is a variable name, 
ei are integer expressions. 
To execute the DO loop: 

1. Set i = el 

2. Execute statements through 
statement number s 

3. Evaluate i = i+e3 

4. Repeat 2 through 3 for 

MAX (1, INT((e2 - el)/e3) + 1) 
iterations 

ENCODE (c,f ,b[,ERR=s] ) [list] 5.10 

c is an integer expression. 

f is a FORMAT statement label or an array name. 

b is a variable name, array name, or array element name. 

s is an executable statement label. 

list is an I/O list. 

Changes the elements in the list of 
variables into characters; c specifies 
the number of characters in the buffer, 
f specifies the format statement number, 
and b is the name of the entity to be 
used as a buffer. 

END 4.9 

Delimits a program unit. 

END FILE u 5.9.3 

u is an integer variable or constant. 

An end-file record is written on logical 
unit u. 
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END=s,ERR=S 

s is an executable statement label. 

(Transfer of Control) on end-of-file or 
error condition is an optional element 
in each type of I/O statement allowing 
the program to transfer to statement 
number s on an end-of-file (END=) or 
error (ERR=) condition. 



5.8 



EU-mY nam t ( tp[ rPJ . . • ] ) J . ,.,1. -.v^' ;U-^J^^ ;V /W ti'&tf 



nam |{ tp[ ,p] . . . ] ) J 

• ■* >, .- ^? 
nan \ ia a subprogran naffle.j 

P 



Is a symbol i<? na«e,' '*• •■ -*_-," . *\ ■* i-: -^ 
Defines ^n a3,ternate„ent;cf Bolftjf irim*a ,-. ,-. if-i..,, ■ -3 



EQUIVALENCE (nlist) [ , (nlist) ] . . . 



7.5 



nlist is a list of two or more variable names, array names, or 
array element names separated by commas. Subscript 
expressions must be constant. 

Each of the names (nlist) within a set 
of parentheses is assigned the same 
storage location. 



EXTERNAL v[,v] . .. 



is a subprogram name. 

Defines the names specified as FUNCTION 
or SUBROUTINE subprograms. 



7.6 
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FORIIRAN LANGUAGE SUMMARY 

FIND (u'r) 5.9.5 

u is an integer variable name or integer constant. 

r is an integer expression. 

Positions the file on logical unit u to 
record r and sets associated variable to 
record number r. 

FORMAT (field specification,...) 6.1 - 6.8 

Describes the format in which one or 
more records are to be transmitted; a 
statement label must be present. 

[typ] FUNCTION nam[*n] [ ([p[,p] ...]) ] 8.2.2 

typ is a data type specifier. 

naiTi is a symbolic name. 

*n is a data type length specifier. 

p is a symbolic name. 

Begins a FUNCTION subprogram, indicating 
the program name and any dummy argument 
names, p. An optional type 
specification can be included. 



GO TO s 4.1.1 

s is an executable statement label. 

(Unconditional GO TO) Transfers control 
to statement number s. 

GO TO (slist) [,] e 4.1.2 

slist is a list of one or more executable statement labels 
separated by commas. 

e is an integer expression. 

(Computed GO TO) Transfers control to 
the statement label specified by the 
value of expression e. (If e=l control 
transfers to the first statement label. 
If e=2 it transfers to the second 
statement label. etc.) If e is less 
than 1 or greater than the number of 
statement labels present, no transfer 
takes place. 
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FORTRAN LANGUAGE SUMMARY 

GO TO V [[,] (slist)] 4.1.3 

V is an integer variable name. 

slist is a list of one or more executable statement labels 
separated by commas. 

(Assigned GO TO) Transfers control to 
the statement most recently associated 
with V by an ASSIGN statement. 



IF (e) sl,s2,s3 4.2.1 

e is an expression. 

si are executable statement labels. 

(Arithmetic IF) Transfers control to 
statement number si depending upon the 
value of the expression. If the value 
of the expression is less than zero, 
transfer to si; if the value of the 
expression is equal to zero, transfer to 
s2; if the value of the expression is 
greater than zero, transfer to s3. 

IF (e) St 4.2.2 

e is an expression. 

St is any executable statement except a DO or logical IF 
statement. 

(Logical IF) Executes the statement if 
the logical expression is true. 



IMPLICIT typ (a[,a] .. .) [ ,typ{a[,a] . . .) ] . . . 7.1 

typ is a data type specifier. 

a is either a single letter, or two letters in alphabetical 
order separated by a dash (i.e., x-y) . 

The elements a represent single (or a 
range of) letter (s) whose presence as 
the initial letter of a variable 
specifies the variable to be of that 
type. 
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ItnCLUDI fin 

fin ■' • is an ali'.hanu.TPr ic literal. 



4*5 



TncludeL cht- sourcf iztcic-n-i-ni-s m chr compilation from 
the file specitir:(] by fli, . 



OPEN (p[,p]...) 



5.9.6 



is one of the following forms: 

UNIT = e 

NAME = n 

TYPE = 'OLD' 

TYPE = 'NEW 

TYPE = 'SCRATCH' 

TYPE = 'UNKNOWN' 

ACCESS = 'SEQUENTIAL' 

ACCESS = 'DIRECT' 

ACCESS = 'APPEND' 

READONLY 

FORM = 'FORMATTED' 

FORM = 'UNFORMATTED' 

RECORDSIZE = e 

ERR = s 

BUFFERCOUNT = e 

INITIALSIZE = e 

EXTENDSIZE = e 

NCS PANE LOCKS 

SHARED 

DISPOSE = 'SAVE' 

DISPOSE = 'KEEP' 

DISPOSE = 'DELETE 

DISPOSE = 'PRINT' 



ASSOCIATE VARIABLE 
CARRIAGECONTROL = 
CARRIAGECONTROL = 
CARRIAGECONTROL = 
MAXKEC = e 
BLOCKSTZE = e 



or 

or 
' or 

or 
= V 

'FORTRAN 
'LIST' 
'NONE' 



DISP = 'SAVE ' 

DISP = 'KEEP ' 

DISP = 'DELETE' 

DISP = 'PRINT' 



e IS an integer expression. 

s is an executable statement label. 

V is an integer variable name. 

n is an array name, variable name, array element name, or 

alphanumeric literal. 

Opens a file on the specified logical 
unit according to the parameters 
specified by the keywords. 



*l ■^'^JL* 






-•"'•jiiiolic -^*-' ^' ■ 






* -''_ ■^- 'Vi'^HR ?MB.*i-f* ^^'^UuAb^ F^a!<rt^ - - . «s ' * * - ' 



w^Y t/ III 



f,8 
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PAUSE [disp] 
disp 



4.7 

is a decimal digit string containing one to five digits, 
an alphanumeric literal, or an octal constant. 

Suspends program execution and prints 
Che display, if one is specified. 



PRINT 



See WRITE, Formatted Sequential 
See WRITE, List-Direc ced 



5.4.5 
5.7.5 



PROGRAM nam 



7.9 



nam is a symbolic name. 

Specifies a name for the main program. 

READ (u,f [ ,END=s] [,ERR = S] ) [list] 
READ f [ ,list] 
ACCEPT f [ ,list] 

u is an integer variable or constant. 

f is a FORMAT statement label or an array name, 

s is an executable statement label. 

list is an I/O list. 

(Formatted Sequential) Reads one or more 
logical records from unit u and assigns 
values to the elements in the list, 
converted according to format 
specification f. 



5.4.1 



\'H^. 



^^^ 
•C"** 



READ Cu'rr£{,ERR-s]) [list] 

u la an Integer variable or conatant. 
r 



ig an integer exgreSsion. ' 



5.6.1 




B-10 



FORTRAN LANGUAGE SUMMARY 



READ(u[ ,END=s] [,ERR=s] ) [list] 5.3.1 

u is an integer variable or constant. 

s is an executable statement label. 

list is an I/O list. 

(Unformatted Sequential) Reads one 

unformatted record from unit u, and 

assigns values to the elements in the 
list. 

READ(u'r [ ,ERR=s] ) [list] 5.5.1 

u is an integer variable or constant. 

r is an integer expression. 

s is an executable statement label. 

list is an T/0 list. 

(Unformatted Direct Access) Reads record 
r from unit u, and assigns values to the 
elements in the list. 



READ (u,*[ ,END=s] [,ERR=s] )list 5.7.1 

READ *,list 
ACCEPT *,list 

u is an integer variable or constant. 

* denotes list-directed formatting. 

s is an executable statement label. 

list is an T/0 list. 



(List-Directed) Reads one or more 
logical records from unit u and assigns 
values to the elements in the list, 
converted according to the data type of 
the list element. 
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RETURN 



Returns control to the calling 
from the current subprogram. 



program 



4.6 



REWIND u 
u 



is an integer variable or constant. 

Repositions logical unit u to the 
beginning of the currently opened file. 



5.9.1 



STOP [disp] 
disp 



4.8 

is a decimal digit string containing one to five digits, 
an alphanumeric literal, or an octal constant. 

Terminate program execution and print 
the display, if one is specified. 



SUBROUTINE nam [ ( [p [ ,pj . . . ] ) ] 

nam is a sym'oolic name, 
p is a symbolic name. 



Begins a SUBROUTINE subprogram, 
indicating the program name and any 
dummy argument names, p. 



2.3 



TYPE 



See WRITE, Formatted Sequential 
See WRITE, List-Directed 



5.4.4 
5.7.4 



Type Declaration 
typ V [ ,v] . . . 
typ 



7.2 



is a data type specifier. 

is a variable name, array name, function or function 

entry name, or an array declarator. The name can 

optionally be followed by a data type length specifier 
(*n). 

The symbolic names, v, are assigned the 
specified data type in the program unit. 

typ is one of: 

DOUBLE PRECISION 

COMPLEX 

C0MPLEX*8 

REAL 
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REAL*4 

KEAL*8 

INTEGER 

TNTEGER*2 

TNTEGER*4 

BYTE 

LOGICAL 

LOGICAL*! 

L0GICAL*4 



¥> 



iOGrCAL*2 



VIRTUAL a(d) 
a(d) 



[,a(d)] ... 

is an array declarator that specifies storage 
space for a VIRTUAL array. 



WRITE (u,f [ ,ERR=s] ) [Use] 
PRINT f [ ,list] 
TYPE f[,list] 

u is an integer variable or constant. 

f is a FORMAT statement label or an array name. 

s is an executable statement label. 

lisc is an I/O list. 

(Formatted Sequential) Writes one or 
more logical records to unit u 
containing the values of the elements in 
the list, converted according to format 
specification f. 



D.l 



5.4.2 



^ftlTE 




Dame. 



'i« an l.nte^er variable or constant. 
is lUi int^q^t «xpr«ssion. 

,i» *^.P03|C^T acatement label or an acray 

/;-■?"'-'[*'»■■'■''■■' ".si^ -J •■■..-•- ; ■ ,- 

Is «o I/O 14**=. ■ ■ ,- , 



^-^ii|»c»i»tt*d 'Oi£«ct j|cp«se) Writes record 
''ir^1W,^lt .-ip «oht«iljiiAg the values of the 
fel'*<lfflt*..';;;^ . -ti^ " Hat, converted 
Ac«or(3 ing ']p» . fofv^jt sp«cif ication. £. 



5.6.2 
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WRITE (u[ ,ERR=s] ) [list] 5.3.2 

u is an inbeger variable or constant. 

s is an executable statement label. 

lisc is an I/O list. 

(Unformatted Sequential) Writes one 
unformatted record to unit u containing 
the values of the elements in the list. 

WRITE (u'r[,ERR=s] ) [list] 5.5.2 

u is an integer variable or constant. 

r is an integer expression. 

s is an executable statement label. 

list is an I/O list. 

(Unformatted Direct Access) Writes 
record r to unit u containing the values 
of the elements in the list. 



WRITE(u,* [ ,ERR=s] ) list 5.7.2 

PRINT *,list 
TYPE *,list 

u is an integer variable or constant. 

* denotes list-directed formatting. 

s is an executable statement label. 

lisc is an I/O list. 

(List-Directed) Writes one or more 
logical records to unit u containing the 
values of the elements in the list, 
converted according to the data type of 
the list element. 
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Table B-1 
FORTRAN Library Functions 



F0RJ4 



ABS (X) 
lABS(I) 
DABS (X) 
CABS(Z) 



AINT(X) 

INT(X) 

IDINT(X) 



AMOD(X,Y) 
MOD (I, J) 
DMOD(X,Y) 



AMJIX0(I,J, . 
AM;^Xl(X,y, , 
MAX0(I,J,.. 
MAX1(X,Y,.. 

dm;vx1(x,y,. 



DEFINITION 



ARGUMENT RESULT 
TYPE TYPE 



Real absolute value 
Integer absolute value 
Double precision absolute value 
Complex to Real, absolute value 

where Z=(x,y) 

CABS (Z)=(x2+y2) 1/2 



Real 


Real 


Integer 


Integer 


Double 


Double 



Complex Real 



FLOAT (I) Integer to Real conversion 
IFIX(X) Real to Integer conversion 

IFIX(X) is equivalent to INT(X) 
SNGL(X) Double to Real conversion 
DBLE(X) Real to Double conversion 
REAL(Z) Complex to Real conversion, 

obtain real part 
AIMAG(Z) Complex to Real conversion, 

obtain imaginary part 
CMPLX(X,y) Real to Complex conversion 

CMPLX(X,Y)=X+i*Y 



Integer 



Real 



Real 


Integer 


Double 


Real 


Real 


Double 


Complex 


Real 


Complex 


Real 


Real 


Complex 



Truncation functions return the sign of 
the argument * largest integer < |arg| 

Real to Real truncation 
Real to Integer truncation 
Double to Integer truncation 



Real 
Real 
Double 



Real 

Integer 

Integer 



Remainder functions return the remainder 
when the first argument is divided by 
the second. 

Real remainder 

Integer remainder 

Double precision remainder 



Real Real 
Integer Integer 
Double Double 



.) 



Maximum value functions return the 
largest value from among the argument 
list; > 2 arguments. 

Real maximum from Integer list 
Real maximum from Real list 
Integer maximum from Integer list 
Integer maximum from Real list 
Double maximum from Double list 



Integer 


Real 


Real 


Real 


Integer 


Integer 


Real 


Integer 


Double 


Double 



AMINJ3(I,J,. 
AMINl(X,y,, 
MIN0(I,J,. . 
MIN1(X,Y,., 
DMIN1(X,Y, , 



Minimum value functions return the small- 
est value from among the argument list; 
> 2 arg\unents. 

. ) Real minimum of Integer list Integer Real 

.) Real minimum of Real list Real Real 

) Integer minimum of Integer list Integer Integer 

) Integer minimum of Real list Real Integer 

.) Double minimum of Double list Double Double 
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Table n-1 (Cont.) 
T^ORTRAN Library Functions 







ARGUMENT 


RESULT 


FORM 


DEFINITION 


TYPE 


TYPE 




The transfer of sign functions return 








(sign of the second argument) * (absolute 








value of first argument) . 






SIGN(X,y) 


Real transfer of sign 


Real 


Real 


ISIGN(I,J) 


Integer transfer of sign 


Integer 


Integer 


DSIGN(X,Y) 


Double precision transfer of sign 


Double 


Double 




Positive difference functions return the 








first argument minus the minimum of the 








two arguments. 






DIM(X,Y) 


Real positive difference 


Real 


Real 


IDIM(I,J) 


Integer positive difference 


Integer 


Integer 




Exponential functions return the value 








of e raised to the argument power . 






EXP (X) 


X 

e 


Real 


Real 


DEXP (X) 


e 


Double 


Double 


CEXP(Z) 


e 


Complex 


Complex 


ALOG(X) 


Returns log (X) 


Real 


Real 


AL0G1J3(X) 


Returns logi0(X) 


Real 


Real 


DLOG(X) 


Returns logg(X) 


Double 


Double 


DLOGl)a(X) 


Returns log]^g)(X) 


Double 


Double 


CLOG(Z) 


Returns log^ of complex argument 


Complex 


Complex 


SQRT(X) 


Square root of Real argtoment 


Real 


Real 


DSQRT(X) 


Square root of Double precision argument 


Double 


Double 


CSQRT(Z) 


Square root of Complex argument 


Complex 


Complex 


SIN(X) 


Real sine 


Real 


Real 


DSIN(X) 


Double precision sine 


Double 


Double 


CSIN(Z) 


Complex sine 


Complex 


Complex 


COS(X) 


Real cosine 


Real 


Real 


DCOS (X) 


Double precision cosine 


Double 


Double 


CCOS(Z) 


Complex cosine 


Complex 


Complex 


TANH(X) 


Hyperbolic tangent 


Real 


Real 


ATAN (X) 


Real arc tangent 


Real 


Real 


DATAN(X) 


Double precision arc tangent 


Double 


Double 


ATAN2(X,Y) 


Real arc tangent of (X/Y) 


Real 


Real 


DATAN2(X,Y) 


Double precision arc tangent of (X/Y) 


Double 


Double 


CONJG(Z) 


Complex conjugate, if Z=X+i*y 








CONJG(Z)»X-i*Y 


Complex 


Complex 


RAN(I,J) 


Returns a random number of uniform distri- 
bution over the range to 1. I and J must 
be integer variables and should be set ini- 
tially to J3. Resetting I and J to JiJ re- 
generates the random number sequence. 
Alternate starting values for 1 and J will 
generate different random number sequences. 
See also Appendix C.3. 


Integer 


Real 



B-16 



FORTRAN LANGUAGE SUMMARY 



-^^^W, „;•-•,,, ■«- 



^ B.3 LIBRARY I^UNCTION^ . 



^'- T-\ i;-. :/;--' -Table B-Z 
':„':- j&^tt.'^i.o and. Processor-Defined Functions 



vmK ■ ■'fi'**'^^^ 



■w i ■ ^ ■ ■' 



Tuac-U-oB 






***; « .«N 






GWierlc 



fype of 
Argument (s} 



Type o£ 
KesiUt 



PDF 






Absolute 
VaXuii 



zw 









i<^^' 



1,4.. ,. . 



ABS 



I)«al 

tkXible 

.Cooplex 

XntBger-4 



Raal 
Ooubl* 

Iiiteger-2 
inteqer-4 



CNBE , 
CABS " 
IIABS 
JIASS 



4jae 

jFOAfiS 
;c«6 
flAElS 
SJAE6 



J': 



■'.-v.. 1 .' 



IA8S 



Integer- 2 
Integer-f 



lnt«gfcr-it 
Inte9er-4 



IIABS 
JIABB 



$IABS 
tJAKS 



09'ilM 



OM ■ 



COB 



Real 
tXMlble 

Complex 



BMl 

Double 

CoMplex 



COS 

DCOB 

OCXS 



fcoe 

$D(XS 
VXXlS 



TxpoiWititi. 



Real 

Double 

Complex 



Real 

Double 
Complex 



cexf 



fEXP 

$DE>7 

$CE>Jf> 



K 



N«tu.:al 
Iii>ga::itha 



log^* 



LOG 



Heal 

Double 

Complex 



Deal 

Double 

Conplax 



ALOG 
OLOG 
CLOG 



fAUKJ 
$DU:iG 
$CLCIG 



Coin»n 
Logarithm 



Wio^ 



wm 



Seal 
Double 



Real 
Double 



ALOGlfT 
DLOGU 



»ALC:UI 
SOLCil^ 



Sine 



itln •' 



SIN 



Real 

Double 

COHiplex 



Real 

Double 
Complex 



SIM 

DSIN 

CSIN 



SDSIH 
fCSlH 



tlODt 



J./2 



SQIVI 



Real 

Double 

Contplax 



Seal 

Double 

Conplex 



SQRS 

DBQKT 

CSQRT 



Mora 

fDSfiRT 
fCSC'RI 



Tangiiiit 



Tte a 



TAH 



Ileal 
Double 



Real 
Double 



VAN 
DTAN 






-I — ^- 



^ Axe (^oBlne 



Arc Cob «' 



ACOS 



•'1 



Real 
Dimble 



Real 
Double 



AOOS 

0AC06 



ttgXfi 



^ 



lUrc tline 



.Arc Sift a 



MXM 



Bsal 
trouble 



Real 
Doable 



Asm 

DA53K 



(Asm 

$aAS.XN 



Are 'raaeofit 



''\t 



,-..■ ■ ■ -■%■ 'ft 
T i Bm, i I f ," --■-■ ' J 



'■ -h 



ATAt) 



teal 

Double 



Real 
Double 



ATMt 
tMTAM 






^' m V»« 



JtlMlA 



H^ 



1?-*- 



i G i ' a >■■ -* ; 



^ 



Mai 
.Oeuble 



Real 
Oonble 



A1AH2 

DHTW)3 



«DM«3. 



lyp«.:bolic 

£MlilM 



.tMh a 



eosH'- 



' Real 
Double 



Kekl 
Double 



O03H 
OC06H 



fcosii ■ 

CDCCISH 



■V, , 



■Hn^iftolle 



Blnh a 



S£NH 



Real 
Double 



Double 



6IIIU 
nsZMH 



fSIMH 
tOGlNH 



Tf«»9iMit 



Tanh j» 



TKHH 



!/',•_-*.' f 
%&^ 



Real 

Double 



Real 
Double 



SANK 

OTAm 



STAMH 
90»«H 
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-:' Table B-2 (Cont.) 
FQl^TRAN-iy PLUS 



f}^'^'J'V:)^-},:k).fS%^^'neriQ h.n^ .Procesjsor-Oefined Functions 
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&>,■"»«»- '^ •».! £ ''lit "^ ■i'-,«.f-; ', ', ' - . » -^ .J. .., , ,«.» i-.'fi. %■ • , i 

■' ■' ■; .SiJ ' ■! - motes for Table S-2 , .;,,. ;, .7 -.. . 

1^^. ^xi..^ ^^9fit»d as the largest iAte9er Mhose n«ignltvtd« .4<>isiB jtiot «^oe,ed t^e 
nagnitrude o£ x ai»3 whose «ign is th? same as that pf jt, . '^ / J ':-.J _, 

m, .Iha jwwjalnflering functions of <a, , ja^^ are defuied as a, - S4,>aai*-. lAere 
^-,-W Iji.dafinea in i. above. * ,r * ; ! . - * : * '* T 

I-; -r , H --'»'•■■ ■ '- ■ "'■'■' ' ■ •■ -.''^^vi ^:?% '^^'l^ K. -1 

,3, "Fidi«tl!pnv that <?au8e conversion pf ail entity £roBi ows'^oe lso'a»o,ther ty£)e 
■pr5.vl<|e the sa«e effefet ai^ the is^Xiea convarsion in afsignaant stetsnents. 
Th# functions SHGIj with a real argument, and DBI£ with a 'doid>Xa decision 
«rg)«nentir .return the valutas of the argument without conversions. 

'4. A §tmsl^ value is axpressed as an ordered pair of reals (ar, ai) , whete ar 
¥"' ^ t)» ifial jert an'3 ^i is the imaginary part. 

I, ' '.v-^'-v/'; ■, ^ ----■*:■, "' ■ -; ■ \i 

^S. The jUfgwient of AU>3, tfLOG, htJOGlQ, and DLOGIO aust be greater than sero. 
p "The arswafint of C3U>3 must not be |Q.,0.}. 

'."■ .. '• ".•-' .'■'.' •■. '■ ^- ■ • '■ 

^%. ' The ar$ti»Msnt of SItt, DSIK, COS, DC^S, TAN, and DTAN aust be in radians. 

I . These ^lanctions use the airgument modulo 2 pi. 

* .• IS -■-■■' . , I 

" 7. rrtie argument of SQRT and SSQRT must be greater than or equal to aero. 

t ' ••**"" 

^9. The absolute value of the argument of ASIN, DASIN, ACOS, and DACOS must.be 

P 1^« than or egpil to ^ne. 

!*.,,..».,-'- , ' ' < 

is. "Oik ji^Slllt of hSm^ QASIt?, ACQS, DACOS, ATAN, DATAM, ATAN2, an^ CATAN2 is 
%■ 4n..»»a:lanf ., ^ , ', 

^9. The result of ATAHa and OATANZ is zero or positive for a2<0 and negative for 
<^, a^<Oi J Wie result is undefined if both arguments are zero. 

^. The rasuli of tsgm! is the principal value with the real part greater tlian 
f>; ■ or'.«2t)^al to isero. Ittten' the real part is zero, the imaginary part is greater 
C/- "ttjin, dt e^ial to zeiro, 

^i2. The jprincipal value is used for the results of complex functions. 
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APPENDIX C 
FORTRAN PROGRAMMING EXAMPLES 



Four examples of FORTRAN programs arfe given below. These examples are 
intended to show possible methods of handling input/output, iterative 
calculations, the FORTRAN Library functions, and subprogram usage in 
the context of problems likely to face a FORTRAN programmer. These 
particular programs should not be considered as the correct or optimal 
approach to the specified problems since many other methods are 
possible in each case. 

The program in example one performs linear regression on a set of X,Y 
coordinates. The program uses standard formulae to calculate the 
slope and intercept of the line which best fits the data points 
entered. The program listing and a sample run follow: 

EXAMPLE 1 LISTING: 

TYPE 10 
5 TYPE 20 

ACCEPT 30 »N 

IF <N ♦LE. 0> STOP 

TYPE 40 »N 

8I0HXY - 

SIGMX - 

eiOMY - 

8X0MXX *• 

BO 100* J-lrN 

ACCEPT SO»XfY 

8I0MXY - 810HXY + X«Y 

StOHX - 8I6HX •(■ X 

8I0MY « 8I0MY + Y 

8X0HXX » 8IGMXX + X»X 

100 CONTINUE 

A - <8I0MXY--810MX*810MY/N> / <810MXX-8IGMX«8IGMX/N> 

El • (8IGHY'A«8XGHX>/N 

TYPE «0»A»B 

60 TO S 
C 

C FORMAT 8TATEMENT8 
C 
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10 FORMAT <//' THIS PROGRAM PERFORMS LINEAR REGRESSION'/ 

1 ' THE LINE WHICH BEST FITS A SET OF X»Y PAIRS IS CALCULATED.') 

20 FORMAT </' TYPE IN THE NUMBER OF X»Y PAIRSt '«> 

30 FORMAT <I2) 

40 FORMAT (' TYPE IN '»I2»' LINES OF X»Y PAIRS.'/) 

50 FORMAT <2F8.3> 

60 FORMAT </' THE BEST FIT IS Y-'»F8,3»' X-'»F8.3) 
END 
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FORTRAN PROGRAMMING EXAMPLES 
EXAMPLE 1 SAMPLE RUN: 
MCR>RUN EXMPLlf 



THIS PROGRAM PERFORMS LINEAR REGRESSION 

THE LINE WHICH BEST FITS A SET OF X»Y PAIRS IS CALCULATED. 

TYPE IN THE NUMBER OF XfY PAIRSJ 17 
TYPE IN 17 LINES OF X»Y PAIRS. 



1.1 


4.7 


2.2 


9.4 


4.1 


9.9 


5.3 


14.6 


6*7 


23.1 


8.0 


29.9 


10,1 


37.1 


11.5 


41.3 


13.6 


54.7 


15.8 


59.2 


17.9 


64.7 


19.5 


71.2 


22.3 


79.8 


23.1 


81.4 


25.3 


88.8 


26.9 


91.9 


27,3 


95.4 



THE BEST FIT IS Y» 3.537 X« 0.340 

TYPE IN THE NUMBER OF X»Y PAIRS? 6 
TYPE IN 6 LINES OF XrY PAIRS. 



0.41 


-4.3 


0.99 


-7.2 


0.31 


-3.6 


0.02 


-0.7 


0.76 


-5.9 


0.43 


-4.4 



THE BEST FIT IS Y« -6.304 X« -1.282 

TYPE IN THE NUMBER OF X»Y PAIRS t 
EXMPLl — STOP 

The program in example two manipulates data representing test scores. 
The scores are read from the source file, placed in descending order, 
and sent to an output file. Then the absolute total and histogram of 
the test scores in each 10-point interval are output on the terminal. 
The program listing and a sample run follow: 
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FORTRAN PROGRAMMING EXAMPLES 
EXAMPLE 2 LISTING: 



LOGICAL*! STARS(80) 
INTEGER ARRAY ( 200 >» HIST (10) 
DATA STARS /80*'*'/ 
DATA HIST / 10*0/ 
DO i00» I=l»200 

READ(lr20»END=105) ARRAY<I) 
100 CONTINUE 
105 ISIZE = I-l 

DO 120» J=1»ISIZE-1 

DO 110» K-J+lrlSIZE 

IF<ARRAY<J>.GE.ARRAY<K)) GO TO 110 

ITMF = ARRAY (. J) 
ARRAY(J) = ARRAY<K) 
ARRAY<K) = ITMP 
110 CONTINUE 
120 CONTINUE 

DO 125» K=lr ISIZE 

WRITE(2f20) ARRAY(K) 
125 CONTINUE 

DO 130» K=lf ISIZE 

N = <MIN0(ARRAY<K)r99> - 1) / 10 + 1 
HIST<N) = HIST(N) + 1 
130 CONTINUE 
TYPE 35 
DO 150» K=10t100t10 

TYPE 40» HIST<K/10)r K~9» K 
IF<HIST<K/10> .EQ. 0) GO TO 150 
TYPE 45» (STARS<M>» M=l »HIST<K/10) ) 
150 CONTINUE 

TYPE 50r ISIZE 
STOP 
C 
C FORMAT STATEMENTS 

C 

20 F0RMAT(I3) 

35 FORMAT<//lXf 'The number of test scores and 3 histosfram'/ 

1 ' in each 10 point interval follows}'/) 
40 F0RMAT(/lXrI3»' in the ran^ae 'fI3»' to 'fi3i.»> 
45 F0RMAT<lH+f2Xf80Al) 
50 F0RMAT<//' The total number of test scores = '»I3> 

END 
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EXAMPLE 2 SAMPLE RUN: 
MCR>RUN EXMPL2$ 

The number of test scores and a histoarsm 
in each 10 point interval follows* 

1 in the ranSe 1 to 10 * 

2 in the rande 11 to 20 ** 
2 in the rande 21 to 30 ** 

10 in the ran^e 31 to 40 ********** 

13 in the rsnsle 41 to 50 ************* 

11 in the ran^e 51 to 60 *********** 

19 in the rsnsie 61 to 70 ******************* 

35 in the ransfe 71 to 60 *********************************** 

40 in the raniSe 81 to 90 **************************************** 

17 in the rsnde 91 to 100 ***************** 

The total number of test scores = 150 



Example three shows a method of calculating the prime factors of an 
integer. A simple table look-up method was used to determine the 
necessary primes. Note the unusual use of FORTRAN carriage control to 
facilitate the prim.e factor output. MOD is a Library function and is 
described in Appendix B. The program listing and a sample run 
follow: 

EXAMPLE 3 LISTING: 

INTEGER P»HOLD 

TYPE 50 
80 TYPE 100 

ACCEPT lOSfNUMBER 

IF (NUHBER .LE. 0) STOP 

TYPE 110 

ISQRT » SORT (FLOAT (NUMBER)) 

P = 1 

IFLAG « 

HOLD " NUMBER 

:CF (HOLD .LE. 3) GO TO 240 
2C^0 P «■ NPRIME(P) 
205 2REM = MOD<HOLD»P) 

IF (IREM .EQ. 0) GO TO 400 

IF (P ♦LE. ISQRT) GO TO 200 

IF (IFLAG ,NE. 0) GO TO 300 
240 TYPE 250 r NUMBER 

GO TO 80 
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300 IF (HOLD .GT. 1) TYPE 350»H0LD 

00 TO 80 
400 IFLAG "» 1 

HOLD =■ HOLD/P 

IF (HOLD .EO. 1) 00 TO 500 

TYPE 450 rP 

GO TO 205 
500 TYPE 350 rP 

GO TO 80 
C 
C FORMAT STATEMENTS 

50 FORMAT (//IX.'THIS IS A PROGRAM TO FIND THE PRIME FACTORS 0F'» 

1 ' AN INTEGER < 32767.'/' ENTERING A NEGATIVE OR ZERO'» 

2 ' NUMBER TERMINATES EXECUTION.'/) 
100 FORMAT (//' ENTER ♦ '»•> 

105 FORMAT (15) 

110 FORMAT (/) 

250 FORMAT (1H+fI5»' IS A PRIME NUMBER') 

350 FORMAT (1H+.I5»») 

450 FORMAT ( 1H+. I5» '*' .♦> 
END 

FUNCTION NPRIME(OLD) 

DIMENSION MPRIME(46) 

INTEGER OLD 

DATA MPRIME/2»3»5f7»lli.l3rl7fl9r23r29F31r37f41f43»47» 

1 53f59f61»67»71»73r79»83»89r97Fl01»103»107»109»113» 

2 127rl31»137fl39»149»l51fl57fl63rl67.173rl79Fl81f 

3 191»193»197»199/ 
IF (OLD .EQ. 1) N « 
N =■ N + 1 

NPRIME » MPRIME(N) 

RETURN 

END 



EXAMPLE 3 SAMPLE RUN: 
MCR>RUN EXMPL3* 

THIS IS A PROGRAM TO FIND ''I PRIME FACTORS OF AN INTEGER < 32767. 
ENTERING A NEGATIVE OR ZESu HUHBER TERMINATES EXECUTION. 



KNTER * 3983 
7* 569 

ENTER * 32761 
181« 181 

ENTER • 32749 

32749 IS A PRIME NUMBER 



C-6 



FORTRAN PROGRAMMING EXAMPLES 

ENTER •8192 

2« 2« 2« 2* 2« 2» 2« 2« 2« 2« 2« 2« 2 

ENTER * 32751 

3« 3» 3» 1213 

ENTER • 32767 

7* 31» 151 

ENTER t 4099 
4099 18 A PRIME NUMBER 

ENTER * 
EXMPL3 — STOP 



Example four demonstrates a simple way to generate random numbers in a 
given range using the FORTRAN Library function RAN. A program listing 
and sample run follov?: 

EXAMPLE 4 LISTING: 

REAL MAXrMZN 

TYPE 10 

TYPE 20 

ACCEPT 30 f J 

TYPE 40 

ACCEPT 60 f MZN 

TYPE 50 

ACCEPT 60 t MAX 

L " 

M - 

DO IOOf K-lrJ 

X • RAN(LfM> « <MAX-MIN> + MIN 
TYPE 60 » X 
WRITE (2»60} X 
100 CONTINUE 

STOP 
C 

C FORMAT STATEMENTS 
C 
10 F0RMAT(//1X»'TH18 18 A PROGRAM TO GENERATE A FILE 0F'» 

1 ' RANDOM *"8 IN A GIVEN RANGE,'/) 
20 FORMAT < IX r 'ENTER THE NUMBER OF RANDOM •"S TO GENERATE) ' r*> 
30 FORMAT < 13) 

40 FORMATdXr 'ENTER THE MINIMUM VALUE! '»♦) 
50 FORMAT( IX » 'ENTER THE MAXIMUM VALUE! '»♦) 
60 F0RMAT(F10.4) 

END 
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EXAMPLE 4 SAMPLE RUN: 
MCR>RUN EXMPL4* 

THIS 18 A PROORAH TO GENERATE A FILE OF RANDOH #'8 tN A GIUEN RANGE. 

ENTER THE NUMBER OF RANDOM t'S TO GENERATE (40 
ENTER THE MINIMUM VALUE! -5.0 
ENTER THE MAXIMUM VALUE t 5.0 
-4.8465 
-4.5386 
-3.6130 
-0.8307 
-2.4673 

2.6721 
-1.7612 
-4.6161 
-1.8459 

0.4690 
-0.5726 

2.3432 
-0.7876 

4.1861 

2.2046 
-4.4474 

3.4746 

0.8739 

3.9721 
-4.0326 

0*0559 
-3.3713 
-0.7312 
-4.0458 

2.3063 

0.2498 

0.7423 

2.2060 
-3.4453 
-0.5254 
-2.1446 

1.8604 

0*4644 
-3.9575 

2.0757 
-1.9288 
-0.2538 
-4.1638 
-2.6987 

1.2823 
EXMPL4 ~ STOP 
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D. 1 INTRODUCTION TO VIRTUAL ARRAYS 

User programs executing on a PDP-11 family computer can directly 
address at most 65,536 bytes (64K bytes) of main memory at any 
instant. This main memory can contain a mixture of FORTRAN compiled 
code, variables and arrays, and external procedures. Program overlays 
permit larger programs to be executed in the directly-addressable main 
memory. Virtual arrays provide another mechanism for processing large 
arrays that would otherwise exceed the 64K byte limit on 
directly-addressable memory. 

A virtual array is an array whose storage is allocated in physical 
main memory outside of the program's directly-addressable main memory. 
The use of virtual arrays in a program frees directly-addressable 
memory for executable code and other data storage. 

NOTE 

Virtual arrays are not supported in all 
PDP~11 FORTRAN implementations. Virtual 
arrays are available in Version 2 of the 
FORTRAN IV compiler for the RSX-llM and 
RT-Il operating systems. 



D . 2 VIRTUAL STATEMENT 

The VIRTUAL statement defines the number of dimensions in a virtual 
array and the number of elements in each dimension. The VIRTUAL 
statement is similar in form and usage to the DIMENSION statement 
(Section 7.3). 

The VIRTUAL statement has the form: 

VIRTUAL a(d) [, a(d)] .. . 
a is the symbolic name of an array, 
d is a dimension declarator. 

Each a(d) is an array declarator as described in Section 2.6.1. 

The VIRTUAL statement allocates a number of (virtual) storage 
locations to each array named in the statement. For further 
information concerning arrays and the storage of array elements, see 
Section 2.6. 

The data type of a virtual array is specified in the same way as the 
data type of a variable or an array; that is, implicitly by the 
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initial letter of the name, or explicitly by a type declaration 
statement. 

The name of a virtual array can appear in a type declaration 
statement; however, in each program unit, an array name can appear in 
only one array declarator. The name of a virtual array cannot appear 
in a COMMON statement, EQUIVALENCE statement, or DATA statement. 

VIRTUAL statements must not be labeled. 

Examples 

VIRTUAL A(IOO), 8(100,100) 
VIRTUAL C(4,4,4,4,4) 



D.3 SIZE OF VIRTUAL ARRAYS 

The VIRTUAL statement allocates a number of storage locations for each 
element in each dimension of the array. Each storage location is one, 
two, four or eight bytes in length, as determined by the data type of 
the array. The total number of elements in the array is equal to the 
product of all dimension declarators in the array declarator. 

A VIRTUAL array can have a maximum of 32767 elements; each element 
requires from one to eight bytes of storage. Thus a maximum size 
L0GICAL*1 virtual array requires 32767 bytes of physical main memory; 
a maximum size REAL*8 virtual array requires 262,136 bytes of physical 
main memory. 

The declaration of a virtual array does not significantly reduce 
directly-addressable memory available to the program. VIRTUAL arrays 
are constrained, however, by the total amount of physical main memory 
available in the system. If adequate memory is not available to 
contain all virtual arrays declared in a program, the program cannot 
be executed. Refer to the appropriate FORTRAN User's Guide for 
additional information on size constraints. 



D.4 RESTRICTIONS ON VIRTUAL ARRAY USAGE 

The names of virtual arrays and virtual array elements must not be 
used in some contexts: 

1. A virtual array name must not be used in a COMMON statement 

(Section 7.4). 

2. The name of a virtual array or virtual array element must not 
be used in an EQUIVALENCE statement (Section 7.5). 

3. A virtual array or virtual array element cannot- be assigned 
an initial value by a DATA statement (Section 7.7). 

4. Virtual arrays cannot be used to contain object time format 
specifications (Section 6.6). The name of a virtual array or 
virtual array element must not appear as a format specifier 
in a READ, WRITE, PRINT, TYPE, ACCEPT, ENCODE or DECODE 
statement. 

5. The name of a virtual array or virtual array element, must not 
be specified as the buffer argument (third argument inside 
parentheses) of an ENCODE or DECODE statement (Section 5.10). 
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6. The name of a virtual array element must not be used as an 
actual argument to a subprogram if the subprogram assigns a 
value to the corresponding dummy argument. 



Examples 

Valid Usage 

VIRTUAL A(IOOO), B(2000) 
READ(1,*) A 
DO 10,1=1,1000 
10 B{I)=-A(I)*2 

WRITE(2,*) (A(I) ,1=1,1000) 
CALL ABC(A,B) 



Invalid Usage 

DIMENSION B(10) 
VIRTUAL A (10) 
DATA A(l)/2.5/ 
COMMON /X/ A 
EQUIVALENCE (B,A) 
EQUIVALENCE (A(1),X) 
WRITE{1,A) (B(I) ,1=1,10) 
ENCODE(4,100,A(3) ) X,y 



(Used 


in 


(Used 


in 


(Used 


m 


(Used 


in 


(Used 


as 


(Used 


as 



DATA statement) 
COMMON statement) 
EQUIVALENCE statement) 
EQUIVALENCE statement) 
format specifier) 
ENCODE output buffer) 



D . 5 VIRTUAL ARRAY REFERENCES IN SUBPROGRAMS 

Actual and dummy arguments become associated at the time control is 
tranferred to a subprogram (Section 8.1). Actual and dummy arguments 
that become associated must agree in data type. A dummy argument 
declared as a non-virtual array can only become associated with an 
actual argument that is a non-virtual array or array element. A dummy 
argument declared as a virtual array can only become associated with 
an actual argument that is also the name of a virtual array. 

An actual argument which is a reference to a virtual array element can 
only become associated with a dummy argument which is declared as a 
simple variable (Section 2.2). In effect, an actual argument that is 
a virtual array element is treated as an expression. A value must 
have been assigned to the element before it is used as an actual 
argument. The subprogram must not alter the value of the 
corresponding dummy argument. Note that neither of these restrictions 
applies to the use of a non-virtual array element as an actual 
argument. 
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Examples 

Valid Usage 

VIRTUAL AdOOO) ,B(1000) 

WRITE(5,*) SCALE(A,1000,B(3) ) 
END 

REAL FUNCTION SCALE (X,N,W) 
VIRTUAL X(N) 
S=0. 

DO 10, 1=1, N 
10 S=S+X(I)*W 
SCALE=S 
END 

Invalid Usage 

VIRTUAL A (1000) 

REAL B{4000) 

CALL ABC (A, B, A (3)) 

END 

SUBROUTINE ABC(X,Y,Z) 

REAL X(IOOO) (Invalid; actual argument is virtual) 

VIRTUAL Y(4000) (Invalid; actual argument is 

non-virtual) 
2=2.3 (Invalid; actual argument is virtual 

array element) 
END 
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A field descriptor, 6-8, 6-9 

A format, 6-15 

Absolute value of integer 

constant, 2-4 
ACCEPT statement, B-2, B-10, 

B-11 
formatted, 5-9 
list-directed, 5-17 
Acceptable input constants, 

5-15 
ACCESS keyword, 5-23, 5-24 
Access, shared, 5-26 
Actual arguments, 2-11, 8-1, 

8-2, 8-7 
Actual arguments, associating 

dummy and, 8-1 
Actual record length, 5-25 
Addition, 2-17 
Adjustable array declarator, 

2-15 
Adjustable arrays, 2-15, 8-7 
Alignment, word boundary, 7-8 
All-blank field, 6-2, 6-4 
Allocation, 
default, 2-4 
4 -byte, 2-4 
Allocating storage locations, 

7-3 
All-zero statement label, 1-6 
Alphanumeric data, trans- 
mission of, 6-8 
Alphanumeric literal field 

descriptor, 6-20 
Alphanumeric literals, 1-1, 

2-3, 2-8, 2-9, 5-7, 5-16, 

6-10 
Altering format specifications 

during program execution, 

6-18 
American National Standard 

FORTRAN X3. 9-1966, 1-1 
.AND., 2-22 
Angle brackets, 6-14 
Apostrophe character, 2-8, 

5-16, 6-10 
Appended spaces, 2-9 
Area, 1-byte storage, 2-4 
Arguments , 

actual, 2-11, 8-1, 8-7 
associating dummy and 

actual, 8-1 
defined, 2-11 



Arguments, (cont.) 

dummy, 2-11, 4-10, 8-1, 8-7 
function references used as, 

7-9 
in an ENTRY statement, 

dummy, 8-6 
integer dummy, 2-16 
in the CALL statement, 4-10 
list, 4-10 
subprogram, 8-1 
actual, 8-1 
dummy, 8-1 
values, dummy, 2-15 
Arithmetic 

assignment statement, 3-1 
elements, 2-16, 2-17 
expression, 2-16, 2-20, 8-2 
expression, data type of an, 

2-19 
IF statement, 4-4 
operators, 2-16, 2-17, B-1 
statement functions (ASF) , 
2-2, 8-2, B-2 
Arithmetic/logical assignment, 

B-2 
Array, data type of an, 2-14 
Array declarator, 2-12, 7-3, 
7-5, 7-11 
adjustable, 2-15 
interaction, ENTRY and, 8-7 
Array elements, 2-1, 2-11 

assigning values to variables 

and, 7-10 
filling, 7-10 
storage, L0GICAL*1, 2-14 
transmitting, 5-4 
Array format specifications, 

constructing, 6-20 
Array name, 2-12, 2-13, 7-5 
unsubscripted, 2-15, 4-10, 
7-10 
Array reference, 5-4 
Array reference, subscripted, 

2-13 
Array references without sub- 
scripts, 2-14 
Array size, dummy, 2-15 
Array storage, 2-13, 2-14, 

equivalence, 7-7 
Array, unsubscripted, 5-3 
Arrays, 2-1, 2-2, 2-11, 2-12, 
5-2, 6-18 
1-dimensional , 2-12 
2-dimensional , 2-12 
3-dimensional , 2-12 
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Array, 

adjustable, 2-15, 8-7 

defining, 7-2 

defining dimensions in, 7-3 

making equivalent, 7-6 

packing, 5-3 

processing multidimensional, 

5-5 
with non-unity lower bounds, 
equivalencing, 7-7 
ASCII 

characters, 2-8, 6-20 
character set, A-2 
null character, 5-24 
octal equivalents of Radix-50 
characters, A-3 
ASF (Arithmetic Statement Func- 
tion) , 8-2 
dummy arguments in, 8-2 
reference, 8-2 
ASSIGN Statement, 3-4, 4-3, B-2 
Assigned GO TO statement, 4-3 
Assigning, 

data types, 7-2 

initial values in common 

blocks, 8-8 
L0GICAL*1 elements to 

COMMON, 7-4 
storage locations, 7-6 
values, 3-2 

values to list elements, 5-3 
values to variables and 
array elements, 7-10 
Assignment, 

arithmetic/logical, B-2 
Assignment operator, 2-9 
Assignment statements, 3-1 
arithmetic, 3-1 
conversion rules for, 3-2 
logical, 3-3 
Associated variables, 2-10, 5-21 
ASSOCIATEVARIABLE keyword, 

5-23, 5-27 
Associating dummy and actual 

arguments, 8-1 
Asterisk (*) , 1-8, 5-3, 6-3, 

6-4, 7-9 
Attribute specifications, 5-22 
Auxiliary I/O statement, 5-2 



B 



BACKSPACE statement, 5-20, B-3 
Backspacing over list-directed 
records, 5-14 



Base elements, 2-18 

Basic component, 2-16 

Basic real constant, 2-5, 2-6 

Beginning of a record, 5-15 

Binary data, 5-1 

Binary operator, 2-9, 2-17 

Blank, 

see Space or Space character 
Blank COMMON, 7-5 
Blank common block, 7-4 
Block, blank common, 7-4 

boundaries, crossing disk, 
5-26 

common, 2-2 

see also common blocks 

data subprograms, 2-2 

name, common, 7-4 

size, physical, 5-28 
BLOCK DATA statement, 8-4, B-3 
BLOCK DATA subprogram, 8-8 

statements allowed in, 8-8 

specification statements in, 
8-8 
BLOCKSIZE keyword, 5-23, 5-28 
Blocks of storage, 7-4 
Bound, 

dimensions, 2-15 

lower, 2-12 

upper, 2-15 
Boundary alignment, word, 7-8 
Boundary, even, 7-4 
Boundary, word, 7-4 
Brackets, angle, 6-14 

left, 1-4 

right, 1-4 
BUFFERCOUNT keyword, 5-23, 5-26 
Bypassing input records, 6-16 
Byte, 2-3 
Byte strings, 2-8 
Byte, zero, 5-24 



C (letter) , 1-3, 1-6 
Calculations, iterative, C-1 
CALL statement, 4-9, 4-10, 7-9, 

8-1, 8-4, B-3 
CALL statement, argument in the, 

4-10 
Calling program unit, 4-10 
Carriage control, 6-21 
Carriage control character, 

6-11 
Carriage control characters, 

6-16 
table, 6-16 
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Carriage control processing, 

5-27 
CARRIAGECONTROL keyword, 5-23, 

5-27 
Case, 

lower, X 

upper, X 
Character , 

apostrophe, 2-8 

carriage control, 6-11, 6-16 

colon (:) , 6-11 

count, 2-8, 2-10 

dollar sign ($) , 6-11 

first of output record, 6-21 

first record, 6-16 

form, 5-1 

position 72, 1-7 

position of the external 
record, 6-10 

printable, 1-4 

Radix~50, 2-10 

space, ix, 1-6, 2-10 

special, 1-4 

tab, ix, 1-6 
Character set, 

ASCII, A-2 

FORTRAN, 1-3, A-1 

Radix- 50, A- 3 
Characters, 

maximum number stored in 
variable, 6-8 

non-printing, ix 

remaining input, 6-11 
Classes of symbolic names, 2-2 
CLOSE statement, 5-28, B-3 
Code values, Radix-50, 2-10 
Coding form, FORTRAN, 1-5 
Coding forms, using FORTRAN, 

1-5 
Colon (:) character, 6-11 
Colon (:) descriptor, 6-11 
Column 

number, 2-12 

one, 1-6 

one through five, 1-6 

six, 1-7 

seven, 1-7 

seven through 72, 1-7 

seventy- two, 1-7 
Commas, 5-15, 6-16 

as a null field designator, 
6-21 

consecutive, 5-14 

successive, 6-18 
Comment, 1-6 

line, 1-7, 1-9 

indicator, 1-6 



Comments, 1-3 
COMMON , 

assigning L0GICAL*1 elements 

to, 7-4 
blank, 7-5 
block, 2-2, 2-16, 7-4 

blank, 7-4 

extending, 7-8 

name, 7-4 
blocks, assigning initial 

values in, 8-8 
interaction , EQUIVALENCE 

and, 7-8 
named, 7-5 

referencing data in, 7-5 
statements, 2-11, 7-4, 7-5 

B-3 
Complex, 2-2, 2-3, 2-19 
constant, 2-7, 5-14 
data editing, 6-12 
expressions, 2-21 
number, 2-7 
operations, 2-20 
value, 6-12 
Complex* 8, 2-3 
Components, FORTRAN statement, 

2-1 
Computed GO TO statement, 4-2 
Computing procedure, 1-3, 8-2 
Condition, 

end-of-file, 5-2 
error, 5-2 
Conditional 

control transfers, 4-4 
statement execution, 4-4 
Consecutive commas, 5-14 
Consecutive slashes, 6-16 
Conserving file storage space, 

5-6 
Constant, 2-4, 5-14 

absolute value of an integer, 

2-4 
complex, 2-7, 5-14 
double precision, 2-6 
Hollerith, 2-8 
input, 5-14 

integer, 2-4, 2-5, 2-7 
logical, 2-8, 5-14 
magnitude of a real, 2-6 
negative double precision, 

2-6 
negative integer, 2-4 
octal, 2-7 

positive integer, 2-4 
Radix-50, 2-9, 2-10 
real, 2-5 
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Constant, (Cont.) 
truncated, 2-9 
values, 7-10 
Constants, 2-1, 7-10 
acceptable input, 5-15 
data types of symbolic 

names as, 7-11 
giving symbolic names to, 

7-11 
integer, 2-16 
parameter, 2-2 
octal, 2-19 
repetition of, 5-14 
Constructing array format 

specifications, 6-20 
Contiguous storage areas, 7-4 
Contiguous storage locations, 

2-11 
Continuation 
field, 1-7 
indicator, 1-7 
lines, 1-3, 1-9 
CONTINUE statement, 4-9, B-4 
Control 

character, carriage, 6-11, 

6-15 
DO iteration, 4-6 
format 

see format control 
interaction with I/O lists, 

format, 6-18 
statements, 4-1 
transferring, 4-1 
transfers, 4-9, 8-1 
conditional, 4-4 
in DO loops, 4-8 
variable, 4-5, 4-6, 5-4 
Conventions, documentation, ix 
Conversion, 
data, 6-1 

double precision, 2-20 
rules for assignment state- 
ments, 3-2 
Converting data to internal 

format, 5-7 
Count, character, 2-10 
group repeat, 6-14 
Hollerith, 6-14 
iteration, 4-6 
repeat, 6-1, 6-14 
Creating a source program, 1-5 
Crossing disk block boundaries, 
5-26 



D exponent field indicator, 6-5 

D field descriptor, 6-6 

D, (letter) , 1-6, 2-6 

D specification, overriding, 6-21 

Data, 5-12 

alphanumeric, transmission of, 
6-8 

conversion, 6-1, 6-2, 6-4 

editing complex, 6-12 

field format, 6-1 

fields, undersized input, 1-2 

integer, 2-11 

logical, 2-17 

magnitude, effect on G format 
conversions, 6-7 

referencing in COMMON, 7-4 

rounding numeric, 5-9 

statement, 2-9, 2-11, 7-10, B-4 

transfer, 5-2, 5-8, 5-29 

translation of, 6-2 

transmission, 5-3, 6-2 

transmission of, 6-8 
Data type, 2-2, 2-8, 2-10, 2-11, 
2-19, 5-2, 6-8, 6-15, 8-1 

by implication, 2-11 

INTEGER*2, 2-5 

INTEGER*4, 2-5 

length specifier, 2-3 

of an arithmetic expression, 
2-19 

of an array, 2-14 

rank, 2-19 

specification, 2-11 

storage requirements, 2-3 
Data types , 

assigning, 7-2 

default, 7-2 

defining, 7-2 

of symbolic names, 7-2 

of symbolic names as constants, 
7-11 

of the list element, 5-15 

overriding, 7-2 

overriding implied, 7-1 
Debug statement indicator, 1-6 
Debugging statements, 1-2 
Decimal point, 2-4, 6-12, 6-20 

moving, 6-12, 6-13 
Declaration, explicit type, 2-11 
Declaration statements, type, 

7-2, 7-3 
Declarator, 

adjustable array, 2-15 

array, 2-12, 7-11 
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Declarator , (Cont . ) 

dimension, 2-12, 2-16 
variable dimension, 2-15 
DECODE statement, 5-29, B-4 
Default 

allocation, 2-4 

data types, 7-2 

field descriptors, 6-15 

field descriptor values, 6-15 

table, 6-15 
formats, 5-16 
DEFINE FILE statement, 5-20, 

5-21, B-4 
Defined variable, 2-11 
Defining 

arrays, 7-2 

data types of symbolic names, 

7-2 
dimensions in an array, 7-3 
DELETE, 5-27 
Delimiting periods, 2-8, 2-20, 

2-22 
Descriptor, 

: (colon) , 6-11 
$ (dollar) , 6-11 
field, 6-1, 6-2 

see also Field descriptor 
Designating user-supplied sub- 
programs, 7-9 
Designator, null field, 

comi^fi as, 6-21 
Destination statement, 4-8 
Determining the field width 

specification, 6-21 
Device, 

direct access, 5-11 
directory-structured, 5-20 
I/O, 5-2 
peripheral, 5-2 
Dimension 
bound, 2-15 

declarator, 2-12, 2-16 
lower bound, 2-13 
upper bound, 2-13 
variable, 2-15 
statement, 7-3, B-5 
Dimensions, 2-12 
Dimensions in an array, 

defining, 7-3 
Direct access 
device, 5-11 

files, 5-1, 5-21, 5-25, 5-27 
I/O 

formatted, 5-1, 5-12 
statement, 5-21 
unformatted, 5-1, 5-11 



Direct access (Cont.) 

READ statement 
formatted, 5-12 
unformatted, 5-11 

WRITE statement 
formatted, 5-13 
unformatted, 5-12 
Directory-structured device, 5-20 
Disconnecting a file, 5-28 
Disk file, 5-28 
Disk unit, 5-26 
Display, printing the, 4-11 
DISPOSE keyword, 5-23, 5-27 
Division, 2-17 
DO iteration control, 4-6 
DO list, implied, 5-4 
DO loop, 5-4, 8-6 

control transfers in a, 4-8 

nested, 4-7, 4-8 

range of the, 4-5, 4-6, 4-7 

terminal statement, 4-5 
DO range, executions of the, 4-6 
DO statement, 4-5, 4-6, 5-4, B-5 

extended range rules, 4-9 
Documentation conventions , ix 
Dollar sign ($) 

character, 6-11, 6-16 

descriptor, 6-11 
Double precision, 2-2, 2-3, 2-18, 
2-19, 6-6 

constant, 2-6 

conversion, 2-20 

negative constant, 2-6 

operations, 2-20 
Double quote, leading, 2-7, 6-20 
Dummy array size, 2-15 
Dummy arguments, 2-2, 2-11, 4-10, 
7-6, 8-1, 8-7 

and actual arguments , 
associating, 8-1 

in an ASF, 8-2 

in an ENTRY statement, 8-6 

integer, 2-15, 2-16 

values, 2-15 



E field descriptor, 6-5 
Editing, complex data, 6-12 
Editor, using a text, 1-5 
Effect of 

data magnitude on G format 

conversions, 6-7 
exponent in an external 
field, 6-21 
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Effect of, (Cont.) 

parentheses, 2-18 

the scale factor, 6-13 
Elements, 

arithmetic, 2-16, 2-17 

array, 2-1 

see also Array elements 

assigning values to list, 5-3 

logical, 2-21 

of a FORTRAN program, 1-3 
Ellipsis (...), X 
ENCODE statement, 5-29, B-5 
End of a 

program unit, 4-12 

record, 5-15 
End-of-file 

condition, 5-2, 5-18, 5-19 

record, 5-18, 5-20 

transfer of control on, 5-18 
END= specification, 1-1, 5-18, 

B-6 
END statement, 1-3, 4-12, B-5 
ENDFILE statement, 5-20, B-5 
Entries, 

function, 2-2 

subroutine, 2-2 
ENTRY 

and array declarator inter- 
action, 8-7 

in function subprogram, 8-6 

names, 8-6 

function, 8-6 

points within a subprogram, 
multiple, 8-6 

statement, 1-2, 8-6, d-u 
dummy arguments in, 8-6 
.EQ., 2-20 
Equal sign, 3-1 
EQUIVALENCE 

and COMMON interaction, 7-8 

and LOGICAL* 4 arrays, 7-8 

of array storage, 7-7 

statements, 2-11, 7-5, 7-6, 
7-8, B-6 
Equivalencing arrays with non- 
unity lower bounds, 7-7 
Equivalent, making arrays, 7-6 
.EQV., 2-22 

ERR keyword, 5-23, 5-25 
ERR= specification, 1-1, 5-18, 

B-6 
Error condition, 5-2, 5-18 

transfer of control on, 5-18 
Evaluation of operators, 2-23 
Evaluation order, 2-19 
Evaluation, order of, 2-18 
Even boundary, 7-4 



Example, Newton-Raphson itera- 
tion method, 8-4 
Examples, 

FORTRAN programming, C-1 

OPEN statement, 5-28 
Exclamation point, 1-1, 1-3 
Executable program 1-3, 7-4 
Executable statements, 1-3, 8-9 
Execution, 

conditional statement, 4-4 

of a formatted input statement, 
6-19 

of a formatted output state- 
ment, 6-19 

of the DO range, 4-6 

resuming program 4-11 

suspending program, 4-11 

terminating program, 4-11 
Explicit type declaration, 2-11 
Exponent, 6-4, 6-20 

effect of in an external field, 
6-21 

field, 2-6 

field indicator, D, 6-5 
Exponential format, 6-5 
Exponentiation, 2-17, 2-18 

operator, 2-17 
Expressions, 2-1, 2-9, 2-16, 
5-4, 6-14 

arithmetic, 8-2 

complex, 2-21 

logical, 2-16, 2-21 

mixed-mode, 1-1 

numeric, 5-22 

operators, B-1 

relational, 2-16, 2-20 

subscript, 2-13, 5-4 

variable format, 6-14 
External 

field, 6-21 

effect of exponent in, 6-21 
separators, 6-17 

input field, 6-20 

procedure names, 7-8 

record, 5-14 

record, character position of, 
6-10 

statement, 7-8, B-6 

statement, use of PDF name 
in, 8-10 
Extended range, 4-8, 4-9 

DO statement rules, 4-9 
Extending a file, 5-26 
Extending the common block, 7-8 
EXTENDSIZE keyword, 5-23, 5-26 
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F field descriptor, 6-4, 6-13 
F6ictor, scale, 6-2, 6-12 

inoperative, 6-21 
Feilse, 2-8, 2-20, 2-21 
•FALSE., 2-8 
Field, 

all-blank, 6-2, 6-4 

continuation, 1-7 

descriptor, 6-1, 6-2, 6-16, 
6-19, 6-20 
A, 6-8, 6-9 

D, 6-6 

E, 6-5 

F, 6-4, 6-13 

G, 6-6, 6-13 
H, 6-9 

I, 6-2 

L, 6-8 

O, 6-3 

Q, 6-11 

T, 6-10 

X, 6-10 
descriptors, 

alphanumeric literal, 6-20 

default, 6-15 

using scale factors, 6-20 

values, default (table), 6-15 
designator, comma as null, 6-21 
external input, 6-20 
fractional part of, 6-21 
null (zero-length), 6-18 
separators, 6-1 
separators, external, 6-17 
sequence number, 1-7 
statement, 1-7 
statement label, 1-6 
termination, short, 1-2, 6-17 
width, 

optional, 6-20 

specification, determining, 
6-21 

value, 6-15 
Fields, 

transferring record, 5-11 
zero-length, 6-21 
see also record fields 
Files, 

direct access, 5-1, 5-21, 5-25, 

5-27 
disconnecting a, 5-28 
disk, 5-28 
extending, 5-26 



Files, (Cont.) 

formatted, 5-27 

Include, 1-8, 1-9 

magnetic tape, 5-28 

open sequential, 5-19 

position, undefined, 5-14 

positioning functions, 5-2 

printing, 5-27 

processing in an overlay 
environment, 5-21 

read-only, 5-27 

scratch, 5-27, 5-28 

sequential, 5-25, 5-27 

size and structure, 5-20 

storage space, conserving, 5-6 

unformatted, 5-27 
Filling array elements, 7-10 
FIND statement, 5-21, B-7 
First character of an output 

record, 6-21 
First record character, 6-16 
Fixed-length records, 5-21 
Form, 

character, 5-1 

FORTRAN coding, 1-5 

keyword, 5-23, 5-25 

*n, 2-3 

r*, 5-15 

r*c, 5-14 

readable, 5-1 
Format , 

A, 6-15 

control, 5-9, 6-18, 6-19 

control interaction with I/O 
lists, 6-18 

conversions, effect of data 
magnitude on G, 6-7 

data field, 6-1 

expression, variable, 6-14 

list-directed output, 5-16 

object time, 6-18 

reversion, 6-13, 6-19, 6-20 

specifications, 5-1, 6-1, 6-16 
constructing array, 6-20 
separators, 6-16 
Format 

specifiers, 5-2 

statements, 6-1, 6-14, 6-20, 
B-7 

statements, summary of rules 
for, 6-19 
Formatted 

ACCEPT statement, 5-9 

direct access I/O, 5-1, 5-12 
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Formatted (Cont.) 

direct access READ state- 
ment, 5-12 
direct access WRITE state- 
ment, 5-13 
files, 5-27 
input statement, execution 

of, 6-19 
I/O statement, 5-3 
output statement, execution 

of, 6-19 
PRINT Statement, 5-10 
records, 5-8 

sequential I/O, 5-1, 5-7 
sequential READ statement, 

5-7 
sequential WRITE statement, 

5-8 
TYPE statement, 5-10 
Formatting a FORTRAN line, 1-4 
Formatting, list-directed, 5-3, 

5-16 
FORTRAN, ix, 5-27 

character set, 1-3, A-1 
coding form, (figure) , 1-5 
coding form, using, 1-5 
language summary, B-1 
library function names, 8-9 
library functions, 8-9, C-1 

function references to, 8-9 
line, 1-5 

line, formatting a» 1-4 
processors, PDP-11, ix 
program, 1-3 

elements of a, 1-3 
statement components, 2-1 
statements, 1-3 
subprograms, 8-1 
FORTRAN IV, ix 
FORTRAN IV-PLUS, ix 
FORTRAN X3. 9-196 6, American 

National standard, 1-1 
Four bytes (two words) , 2-3 
Fractional part of the field, 

6-21 
Function, 

Arithmetic Statement (ASF) , 

8-2, B-2 
entries, 2-2 
entry name, 8-6 
file positioning, 5-2 
name, generic use of, 8-10 
name summary, generic, 8-11 
names, 8-10 



Function, (Cont.) 

reference, 4-10, 8-1, 8-2, 8-3 

generic, 8-10 
references, 2-1 

processor-defined, 8-9 

to FORTRAN library functions, 

8-9 
used as arguments, 7-9 
FUNCTION 

statement, 8-3, 8-4, B-7 
subprogram, 2-2, 4-10, 8-3 
subprograms, ENTRY in, 8-6 
Functions, 

FORTRAN library, 8-9, B-17, C-1 

function references to, 8-9 
non -generic FORTRAN, 8-10 
processor-defined, 2-2 



G field descriptor, 6-6, 6-13 
G format conversions, effect of 

data magnitude on, 6-7 
.GE., 2-20 
Generic and processor-defined 

function usage, 8-11 
Generic function 

name summary, 8-11 

name, use of, 8-10 

reference, 8-10 

selection, 8-10 
Giving constants symbolic names, 

7-11 
GO TO statement, 4-1, B-7, B-8 

assigned, 4-3 

computed, 4-2 

types of, 4-1 

unconditional, 4-2 
Group repeat 

count, 6-14 

specification, 6-14, 6-20 
Grouping, 6-14 
.GT., 2-20 



H 



H field descriptor, 6-9 
H, (letter), 2-8 
Hollerith constants, 1-1, 2-3, 
2-8, 2-9, 5-7, 5-16 
data type rules for, 2-9 
Hollerith count, 6-14 
Hollerith data, 7-10 
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I field descriptor, 6-2 
I/O, 

formatted direct access, 5-1 
formatted sequential, 5-1 
list, 5-3, 5-6, 5-8, 5-11, 
5-29 

elements, 5-29, 6-15 
rule, 6-20 
simple, 5-3 
list-directed sequential, 5-2 
multi-buffered, 5-26 
statement, 

auxiliary, 5-2 
direct access, 5-21 
formatted, 5-3 
unformatted, 5-3 
direct access, 5-1 
sequential, 5-1 
see also Input/Output 
IF statement, 4-3, Ii-8 
arithmetic, 4-4 
logical, 4-4, 4-5 
Imaginary part, 2-2, 2-7 
Implication, data type by, 2-11 

see also Data type 
Implicit logical unit, 5-1 

number, 5-2 
IMPLICIT statements, 2-10, 2-11, 

7-1, B-8 
Implied data types, overriding, 

7-1 
Implied DO lists, 5-4 
Include file, 1-8, 1-9 
INCLUDE statement, 1-3, 1-8, 

1-9, B-9 
Increment parameter, 4-5 
Indicator, 
comment, 1-6 
continuation, 1-7 
debug statement, 1-6 
Information, system dependent, 

ix 
Initial space allocation, 5-26 
INITIALSIZE keyword, 5-23, 5-26 
Inner loop, 4-8 

see also DO loop 
Inoperative scale factor, 6-21 
Input 

characters, remaining, 6-11 
constant, 5-14 
conversion, 6-20, 6-21 
field, external, 6-20 



Input, (Cont.) 
file, 5-11 
statements, 2-11 
statements, execution of 
formatted, 6-19 
Input/Output, 
devices, 5-2 

formatted direct access, 5-12 
formatted sequential, 5-7 
list-directed, 5-13 
see List-directed 
lists, format control interac- 
tion with, 6-18 
methods of handling, C-1 
records, 5-3 
statements, 5-1, 5-3 
unformatted direct access, 5-11 
unformatted sequential, 5-6 
Integer, 2-2, 2-3, 2-19 

constant, 2-4, 2-5, 2-7, 2-15, 
2-16 

absolute value of an, 2-4 
negative, 2-4 
unsigned, 6-20 
data, 2-11 

data, translation of, 6-2 
dummy argument, 2-15, 2-16 
operations, 2-19 
type, 4-2 
value, 2-22 
variable, 2-16 
variables, 2-11 
INTEGER* 2, 2-3 

data type, 2-5 
INTEGER*4, 2-3 

data type, 2-5 
Interaction, ENTRY and array 

declarator, 8-7 
Interaction, EQUIVALENCE and 

COMMON, 7-8 
Internal format, converting 

data to, 5-7 
Internal representation, 2-22, 

5-1 
Initial parameter, 4-5 
Iteration 

control, DO, 4-6 
count, 4-6 

method example, Newton-Raphson, 
8-4 
Iterative calculations, C-1 
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Keyboard, terminal, 5-17 
Keyword, 5-22 
Keyword, ERR, 5-25 
Keywords in the OPEN statement, 
5-23 



L field descriptor, 6-8 
Label, 

all-zero statement, 1-6 
field, statement, 1-6 
list, statement, 1-1 
reference, statement, 3-4 
statement, 1-3, 1-6, 8-5 
Language summary, FORTRAN, B-1 
•LE., 2-20 

Leading double quote, 2-7, 6-20 
Leading spaces, 6-2, 6-4 
Left angle bracket, 1-4 
Length attributes of symbolic 

names, overriding, 7-3 
Length specifier, data type, 

2-3 
Letters , 

lower case, 1-4 
upper case, 1-4 
Level number, 2-12 
Library functions, FORTRAN, 
8-9, B-17, C-1 
function references to, 8-9 
Line, 1-3 

comment, 1-9 
continuation, 1-3, 1-9 
formatting a FORTRAN, 1-4 
FORTRAN, 1-5 
printer, 5-10 
/List, 1-8 
List, 

arguments, 4-10 

element, data types or tne, 

5-15 
elements, assigning values to, 

5-3 
implied DO, 5-3 
I/O, 5-3, 6-20 
keyword, 5-27 
rule, I/O, 6-20 
simple I/O, 5-3 
statement label, 1-1 



List-directed 

ACCEPT statement, 5-17 

formatting, 5-3, 5-16 

I/O, 1-3, 5-13 

output formats, 5-16 

PRINT statement, 5-18 

READ statement, 5-14 

records, backspacing over, 5-14 

sequential I/O, 5-2 

TYPE statement, 5-17 

WRITE statement, 5-16 
Literals, alphanumeric, 1-1, 2-8 

see also Alphanumeric literal 
Locations, storage 

allocating, 7-3 

assigning, 7-6 
Logical, 2-2, 2-3, 2-19 

assignment statement, 3-3 

constant, 2-8, 5-14 

data, 2-17, 3-3 

data, transmission of, 6-8 

elements, 2-21, 

expressions, 2-16, 2-21, 4-5 

IF statement, 4-4, 4-5 

operators, 2-21, 2-22, 2-23, 
B-1 

record length, 5-25 

unit, 5-1, 5-6 
implicit, 5-1 
number, implicit, 5-2 
numbers, 5-2 

value, 2-22, 3-3 

values, 2-16 
LOGICAL* 1, 2-3 

array, 7-8 

array element storage, 2-14 

elements, assigning to 
COMMON, 7-4 
LOGICAL* 2, 2-3 
LOGICAL* 4, 2-3 
Loop, 

nested DO, 4-7, 4-8 

range of the DO, 4-6 
see also DO loop 
Loss of precision, 5-9 
Lower bound, 2-12 

dimension declarator, 2-13 

equivalencing arrays with 
non-unity, 7-7 
Lower case letter, x, 1-4 
.LT., 2-20 
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Magnetic tape, files, 5-28 
Magnitude, 

effect on G format conversions, 

data, 6-7 
of a real constant, 2-6 
of the value, 6-4 

see also Data type storage 
requirements 
Main program, 1-3, 2-2, 4-12 
unit, 4-10, 7-12 
units, 2-15 
Making arrays equivalent, 7-6 
Maximum number of characters 

stored in a variable, 6-8 
Maximum Radix-50 value, A-3 
MAXREC keyword, 5-23, 5-27 
Memory requirements for data 
types 
£jee Data Type Storage 
Requirements 
Methods of handling input/output, 

C-1 
Minus, unary, 2-17 
Mixed-mode expressions, 1-1 
Moving the decimal point, 

6-12, 6-13 
Multi-buffered I/O, 5-26 
Multi-dimensional arrays, 

processing, 5-5 
Multiple entry points within 

a subprogram, 8-6 
Multiple functions in a single 

function subprogram, 8-8 
Multiplication, 2-17 



N 



NAI4E keyword, 5-23, 5-24 

Named common, 7-5 

Names , 

classes of symbolic, 2-2 
common block, 7-4 
external procedure, 7-8 
generic function, 8-10, 8-11 
giving to constants, symbolic, 

7-11 
summary of generic function, 

8-11 
symbolic, 2-1 
use of generic function, 8-10 

.n:e., 2-20 



Negative 

double precision constant, 2-6 

integer constants, 2-4 
see also Constant 
Nested DO loops, 4-7, 4-8 

see also DO loop 
NEW, 5-24 
Newton-Raphson iteration method 

example, 8-4 
/NOLI ST, 1-8 
NONE, 5-27 
Nonexecutable statements, 1-3, 

7-1 
Non-generic FORTRAN functions, 

8-10 
Non-printing character, ix 
Non-unity lower bounds, 

equivalencing arrays with, 7-7 
NOSPANBLOCKS keyword, 5-23, 5-26 
.NOT., 2-22 
Notation, syntax, x 
Null 

character, ASCII, 5-24 

field designator, comma as, 
6-21 

record, 5-7 

value, 5-14 

values, repetition of, 5-15 

zero-length field, 6-18 
Number , 

column, 2-12 

complex, 2-7 

implicit logical unit, 5-2 

level, 2-12 

logical unit, 5-2 

of blocks, 5-26 

page, 2-12 

row, 2-12 

statement, 11-6 
Numerals, 2-4 
Numeric 

data, rounding, 5-9 

expression, 5-22 

values, 2-16 



O field descriptor, 6-3 
Object time format, 6-18 
Octal constant, 2-7, 2-19 
Octal values, transmission of, 

6-3 
OLD, 5-24 
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One character, 6-16 
Open sequential file, 5-19 
OPEN statement, B-9, 5-22 
examples, 5-28 
keywords in the, 5-23 
Operand, 2-16 
Operators, 2-16 

arithmetic, 2-16, B-1 
assignment, 2-9 
binary, 2-9, 2-17 
evaluation of, 2-23 
exponentiation, 2-17 
expression, B-1 
logical, 2-21, 2-22, B-1 
precedence, 2-18, 2-23 
relational, 2-20, B-1 
unary, 2-17 
Optional 

field width, 6-20 
repeat count, 6-20 

see also Repeat count 
.OR., 2-22 

Order of evaluation, 2-18, 2-19 
Order of subscript progression, 

2-13 
Ordering rules, statement, 1-7 
Outer loop, 4-8 

see also DO loop 
Output formats, list-directed, 
5-16 

see also Statements, list- 
directed and List-directed 
format 
Output record, first character 
of, 6-21 

see also Record 
Output statement, execution 
of formatted, 6-19 
see also statement, 
formatted and I/O statement 
Overlay environment, file 

processing in an, 5-21 
Overriding 

data types, 7-2 
implied data types, 7-1 
length attributes of symbolic 

names, 7-3 
the D specification, 6-21 



Packing arrays, 5-3 
Page number, 2-12 
Parameter, 

increment, 4-5 

initial, 4-5 



Parameter , (Cont . ) 
terminal, 4-5 
constants, 2-2 

see also Constants 
PARAMETER statements, 1-2, 7-11, 

B-9 
Parentheses, 2-21, 2-23, 6-1, 
6-14 
effect of, 2-18 
use of, 2-18 
Part, 

imaginary, 2-2 
real, 2-2 
Partial records, 5-3, 5-8, 5-13 

see also Records 
PAUSE statement, 4-11, B-10 
PDF names (processor-defined 
function) , 8-9 
in EXTERNAL statement, use 
of, 8-10 

see also Function, Processor- 
defined and Processor- 
defined function 
PDP-11 FORTRAN processors, ix 
Periods, delimiting, 2-8, 2-20, 

2-22 
Peripheral devices, 5-2 
Physical block size, 5-28 

see also Block 
Physical end of record, 6-17 

see also Record 
Plus, unary, 2-17 
Plus character, 6-16 
Point, decimal 

see Decimal point 
Points, multiple entry within 

subprogram, 8-6 
Positive constant, 2-4 
integer, 2-4 

see also Constant 
Precedence, 2-18, 2-21, 2-22 

operator, 2-23 
Precision, 

see Double Precision or 

Data type storage requirements 
Precision, loss of, 5-9 
PRINT, 5-27 

PRINT statement, B-10, B-13, 
B-14 
formatted, 5-10 
list-directed, 5-18 
see also Statement 
Printable character, 1-4 
Printer, 
line, 5-10 

terminal, 5-10, 5-17 
Printing the display, 4-11 
Printing a file, 5-27 
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Procedure, computing, 1-3 
Pa:ocedure names, external, 7-8 
Procedure names as subprogram 

arguments, 7-9 
Processing, 

carriage control, 5-27 

see also Carriage control 
iterative, 4-5 

multi-dimensional arrays, 5-5 
termination of, 5-15 
Processors, PDP-11 FORTRAN, ix 
Processor-defined function 
(PDF) , 2-2, 8-9 
names, 8-9 

references, 8-9, 8-10 
Program, 

creating a source, 1-5 
elements of a FORTRAN, 1-3 
executable, 1-3, 7-4 
execution, 

altering format specifications 

during, 6-18 
resuming, 4-11 
suspending, 4-11 
terminating, 4-11 
FORTRAN, 1-3 
main, 1-3, 2-2 
statement, 2-12, B-10 
Program unit, 1-3, 3-4, 5-21, 
7-4, 7-5, 8-3, 8-4, 8-9 
calling, 4-10 
end of a, 4-12 
main, 2-15, 4-10, 7-12 
structure, 1-7 
Programming examples , 

FORTRAN, C-1 
Progression, order of sub- 
script, 2-13 



Q field descriptor, 6-11 
Quantity, 32-bit signed, 2-5 
Quote, leading double, 2-7, 
6-20 



Rcidix-50 

character set. A- 3 
characters, 2-10 
characters and ASCII octal 
equivalents, A-3 



Radix-50 (Cont.) 

code values, 2-10 

constant, 2-9, 2-10, 7-10 

maximum value, A-3 
Range , 

extended, 4-8 

of the DO loop, 4-5, 4-6, 4-7 
see also DO loop range 

rules, DO statement extended, 
4-9 
Rank, data type, 2-19 
READ statement, B-10, B-11 

formatted direct access, 5-12 

formatted sequential, 5-7 

list-directed, 5-14 

unformatted direct access, 5-11 

unformatted sequential, 5-6 
Readable form, 5-1 
Read-only file, 5-27 
READONLY keyword, 5-23, 5-25 
Real, 2-2, 2-3, 2-19 

constant, 2-5 
. constant, magnitude of a, 2-6 

operations, 2-19 

part, 2-2, 2-7 

variables, 2-11 
REAL* 4, 2-3 
REAL*8, 2-3 
Record, 5-6, 5-12 

see also Records 

beginning of a, 5-15 

character, first, 6-16 

end-file, 5-20 

end of a, 5-15 

external, character position 
of, 6-10 

fields, transferring, 5-11 

first character of an output, 
6-21 

initiator, 6-17 

length, actual, 5-25 

length, logical, 5-25 

number, 5-11, 5-19 

number specifier, 5-21 

physical end of, 6-17 

terminator, 6-1, 6-17 

terminator, slash (/) , 6-16 
Records, 5-3, 5-9 

formatted, 5-8 

fixed length, 5-21 

input/output , 5-3 

number of, 5-11 

partial, 5-3, 5-8, 5-13 

size of, 5-11 

transmitting, 5-9 

zero-filled, 5-12 
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RECORDSIZE keyword, 5-23, 5-25 
Reference, 
array, 5-4 
function, 8-1, 8-3 
generic function, 8-10 
function used as arguments , 

7-9 
processor-defined function, 

8-9 
statement label, 3-4 
subprogram, 8-1 
Referencing data in COMMON, 7-4 
Reinstating a zero scale factor, 

6-20 
Relational 

expression, 2-20 
expressions, 2-16, 2-21 
operations, 2-21 
operators, 2-20, B-1 
Remaining input characters, 6-11 
Repeat count, 6-1, 6-14 
group, 6-14 
optional, 6-20 
Repeat specifications, group, 

6-14, 6-20 
Repetition of 
constants, 5-14 
null values, 5-15 
Representation, internal, 5-1, 

5-22 
Requirements, data type storage, 
2-3 

see also Data type 
Resuming program execution, 4-11 

see also Program execution 
RETURN statement, 4-10, 8-3, 

8-4, B-12 
Reversion, format, 6-13, 6-19, 
see also Format reversion 
REWIND statement, 5-19, B-12 
Right angle bracket, 1-4 
Rounding numeric data, 5-9, 6-4 
Row number, 2-12 

see also Number 
Rule, I/O list, 6-20 
Rules, DO statement extended 
range, 4-9 
for format statements, summary, 

6-19 
statement ordering, 1-7 



SAVE, 5-27 

Scale factor, 6-2, 6-12 
effect of, 6-13 



Scale factor, (Cont.) 

field descriptors using a, 
6-20 

inoperative, 6-21 

reinstating a zero, 6-20 
Scratch file, 5-27, 5-28 
SCRATCH keyword, 5-24 
Selection, generic function, 8-10 
Separators, 

external field, 6-17 

field, 6-1 

format specification, 6-16 

slash, 5-15 

value, 5-15 
Sequence number field, 1-7 
Sequential file, 5-25, 5-27 

open, 5-19 
Sequential I/O, 

formatted, 5-1, 5-7 

list-directed, 5-2 

unformatted, 5-1, 5-6 
Sequential READ statement, 

formatted, 5-7 

unformatted, 5-6 
Sequential WRITE statement, 

formatted, 5-8 

unformatted, 5-6, 5-7 
Shading, ix 
Shared access, 5-26 
SHARED keyword, 5-23, 5-26 
Sharing storage space, 7-6 
Short field termination, 1-2, 

6-17 
Signed quantity, 

16-bit, 2-5 

32-bit, 2-5 
Simple I/O list, 5-3 
Size, dummy array, 2-15 
Size, specifying the physical 

block, 5-28 
Slash (/) , 5-15, 6-1, 6-19 

consecutive, 6-16 

record terminator, 6-16 

separator, 5-15 
Source 

line, 4-12 

program, creating a, 1-5 

text, 1-6 
Space, 

allocation, initial, 5-26 

appended, 2-9 

character, ix, 1-6, 2-10, 6-16 

sharing storage, 7-6 
Spaces, 5-14, 5-15 

see also space character 

leading, 6-2, 6-4 

trailing, 6-2 
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Special characters, 1-4 
Specification , 
attribute, 5-22 
data type, 2-11 
determining field width, 6-21 
format, 5-1, 6-1 
group repeat, 6-14, 6-20 
separators, format, 6-16 
statements, 7-1 
statements in BLOCKDATA 

subprogram, 8-8 
Specifier, data type length, 2-3 
Specifiers, formats, 5-2 
Square brackets, ([]), x 
Statement, 

ACCEPT, 5-9, 5-17, B-2, B-10, 

B-11 
arithmetic assignment, 3-1 
ASSIGN, 3-4, 4-3, B-2 
assigned GO TO, 4-3 
BACKSPACE, 5-20, B-3 
BLOCK DATA, 8-4, B-3 
CALL, 4-9, 4-10, 7-9, 8-1, 

8-4, B-3 
CLOSE, 5-28, B-3 
COMMON, 2-11, 7-4, 7-5, B-3 
computed GO TO, 4-2 
CONTINUE, 4-9, B-4 
control, 4-1 
DATA, 2-11, 7-10, B-4 
DECODE, 5-29, B-4 
DEFINE FILE, 5-20, 5-21, B-4 
destination, 4-8 
DIMENSION, 7-3, B-5 
DO, 4-5, 4-6, B-5 
ENCODE, 5-29, B-5 
END, 1-3, 4-12, B-5 
END=, 5-18, B-6 
ENDFILE, 5-20, B-5 
ENTRY, 1-2, 8-6, B-6 
EQUIVALENCE, 2-11, 7-5, B-6 
ERR=, 5-18, B-6 
EXTERNAL, 7-8, B-6 
execution of formatted input, 

6-19 
execution of formatted; output, 

6-19 
FIND, 5-21, B-7 
FORMAT, 6-1, B-7 
formatted , 

ACCEPT, 5-9 

direct access READ, 5-12 

I/O, 5-3 

PRINT, 5-10 

sequential READ, 5-7 

TYPE, 5-10 



Statement, (Cont.) 

FUNCTION, 8-3, 8-4, B-7 

GO TO, 4-1, 4-2, 4-3, B-7 

IF, 4-3, B-8 

IMPLICIT, 2-10, 2-11, 7-1, B-8 

INCLUDE, 1-3, 1-8, 1-9, B-9 

I/O, 5-1, 5-3 

list-directed , 

ACCEPT, 5-17 

PRINT, 5-18 

READ, 5-14 

TYPE, 5-17 

WRITE, 5-16 
logical assignment, 3-3 
logical IF, 4-4, 4-5 
OPEN, 5-22, B-9 
PARAMETER, 1-2, 7-11, B-9 
PAUSE, 4-11, B-10 
PRINT, 5-10, 5-18, B-10, B~13, 

B-14 
PROGRAM, 7-12, B-10 
READ, 5-6, 5-7, 5-11, 5-12, 

5-14, B-10 
RETURN, 4-10, 8-3, 8-4, B-12 
REWIND, 5-19, B-12 
STOP, 4-11, B-12 
SUBROUTINE, 8-4, 8-5, B-12 
terminal, 4-9 
TYPE, 5-10, 5-17, B-12, B-13, 

B-14 
type declaration, 2-11, B-12 
unconditional GO TO, 4-2 
unformatted 

direct access READ, 5-11 

direct access WRITE, 5-12 

sequential READ, 5-6 

sequential WRITE, 5-7 
VIRTUAL, B-13, D-1 
WRITE, 5-7, 5-8, 5-12, 5-13 

5-16, B-13, B-14 
Statement components, FORTRAN, 

2-1 
Statement execution, conditional, 

4-4 
Statement field, 1-7 
Statement function, arithmetic 

(ASF) , 8-2 
Statement label, 1-3, 1-6, 4-3, 

5-2, 5-18, 8-5 
all-zero, 1-6 
field, 1-6 
list, 1-1 
reference, 3-4 
Statement number, 1-6 
Statement ordering rules, 1-7 
Statements, 1-3 

allowed in a BLOCK DATA sub- 
program, 8-8 
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Statements , (Cont . ) 

assignment, 3-1 

conversion rules for assign- 
ment, 3-2 

executable, 1-3, 8-9 

format, summary of rules, 6-19 

non-executable, 1-3, 7-1 

specification, 7-1 

summary of, B-2 

summary of rules for format, 
6-19 

type declaration, 2-10, 7-2, 
7-3 
STOP statement, 4-11, B-12 
Stop, tab, 1-6 
Storage, 

area, 1-byte, 2-4 

allocating locations, 7-3 

block of, 7-4 

contiguous areas, 7-4 

location, 7-5 

locations, allocating, 7-3 

locations, assigning, 7-6 

locations, contiguous, 2-11 

LOGICAL*! array elements, 2-14 

requirements, data type, 2-3 

space, sharing, 7-6 

unit, 2-3 

units, 5-25 
Storage, array, 2-13, 2-14 

equivalence of, 7-7 
Strings, byte, 2-8 
Structure, program unit, 1-7 
Subprogram, 1-3, 2-15, 4-12, 7-6 

actual arguments, 8-1 

arguments, using procedure 
name as, 7-9 

block data, 2-2 

dummy arguments, 8-1 

execution, 8-6 

FUNCTION, 4-10, 8-3 

multiple entry points within, 
8-6 

multiple functions in a single 
function, 8-8 

references, 8-1 

SUBROUTINE, 4-9, 4-10, 8-4, 8-5 

usage, C-1 
Subprograms, designating user- 
supplied, 7-9 

ENTRY in function, 8-6 

function, 2-2 

subroutine, 2-2 

user-written, 8-1 
Subroutine entries, 2-2 
SUBROUTINE statement, 8-4, 8-5, 
B-12 



SUBROUTINE subprogram, 2-2, 4-9, 

4-10, 8-4, 8-5 
Subscript, 2-13 

expression, 2-13, 5-4 
progression, 5-5, 5-9, 7-10 
order of, 2-13 
Subscripted array reference, 2-13 
Subscripts, array references 

without, 2-14 
Subtraction, 2-17 
Successive commas, 6-18 
Summary, 

FORTRAN language, B-1 
generic function names, 8-11 
of rules for format state- 
ments, 6-19 
of statements, B-2 
Suspending program execution, 

4-11 
Symbolic name, 2-1, 2-10, 2-11 
classes, 2-2 

defining data types of, 7-2 
giving to constants, 7-11 
overriding length attributes 
of, 7-11 
Syntax notation, x 
System dependent information, ix 



T field descriptor, 6-10 

TAB character, ix, 1-5, 1-6 

Tab stop, 1-6 

Tabs, 5-15 

Tabulation specifier, 6-10 

Terminal 

keyboard, 5-9, 5-17, 6-17 

parameter, 4-5 

printer, 5-10, 5-17 

statement, 4-8, 4-9 

statement of a DO loop, 4-5 
Terminating program execution, 

4-11 
Termination of processing, 5-15 
Termination, short field, 6-17 
Terminator, record, 6-1 

slash (/) , 6-16 
Text Editor, using a, 1-5 
Trailing spaces, 6-2 
Transfer of control on 

end-of-file, 5-18 

error conditions, 5-18 
Transferring control, 4-1, 8-1 
Transferring record fields, 5-11 
Transfers, conditional control, 
4-4 
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Translation of integer data, 6-2 

Transmission, data, 5-3 
alphanumeric, 6-8 
logical, 6-8 
octal values, 6-3 

Transmitting array elements, 5-4 

Transmitting records, 5-9 

True, 2-8, 2-20, 2-21 

.TRUE., 2-8 

Truncated constant, 2-9 

Type, 

by implication, data, 2-11 
data see Data type 
declaration, explicit, 2-11 
declaration statement, 2-10, 

2-11, 7-2, 7-3, B-12 
keyword, 5-23, 5-24 
of GO TO statements, 4-1 
specification, data, 2-11 
statement, B-12, B-13, B-14 
formatted, 5-10 
list-directed, 5-17 



u 



Unary 

minus, 2-17 
operators, 2-17 
plus, 2-17 
Unconditional GO TO statement, 

4-2 
Undefined file position, 5-14 
Undersized input data field, 

1-2 
Unformatted 

direct access I/O, 5-1, 5-11 
READ Statement, 5-11 
WRITE statement, 5-12 
files, 5-27 
I/O, 5-3 

sequential I/O, 5-1, 5-6 
READ statement, 5-6 
WRITE statement, 5-6, 5-7 
Unit, 

implicit logical, 5-1 
keyword, 5-23, 5-24 
logical, 5-1 
main program, 7-12 
UNKNOWN, 5-24 
Unsigned constant, 2-4 

integer, 6-20 
Unsubscripted array, 5-3 
name, 2-15, 4-10, 7-10 



Upper bound, 2-12 

Upper bound dimension declarator, 

2-13 
Upper case letters, x, 1-4 
Use of generic function name, 
8-10 
parentheses, 2-18 
PDF name in an EXTERNAL state- 
ment, 8-10 
User-supplied subprograms, 

designating, 7-9 
User-written subprograms, 8-1 
Using 

a text editor, 1-5 
FORTRAN coding forms, 1-5 
procedure names as subprogram 
arguments, 7-9 



Value, 2-17, 5-14 

field width, 6-15 

integer, 2-22 

magnitude of, 6-4 

null, 5-14 

of the variable, 2-10 

Radix-50 maximum, A-3 

separator, 5-15 
Values, 

assigning, 3-2 

assigning to variables and 
array elements, 7-10 

default field descriptor, 6-15 

dummy argument, 2-15 

in common blocks, assigning 
initial, 8-8 

logical, 2-16, 2-22, 3-3 

numeric, 2-16 
Variable , 

control, 4-5, 4-6 

dimension declarators, 2-15 

format expression, 6-14 

value of the, 2-10 
Variables, 2-1, 2-2, 2-10, 2-11, 
5-4 

assigning values to array 
elements and, 7-10 

associated, 2-10, 5-21 

integer, 2-11, 2-16 

maximum number of characters 
stored in, 6-8 

real, 2-11 
Virtual array, D-1 
VIRTUAL statement, B-13, D-1 
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Width value, field, 6-15 

Word boundary, 7-4 

Word boundary alignment, 7-8 

WRITE statement, B-13, B-14 
formatted direct access, 5-13 
formatted sequential, 5-8 
list-directed, 5-16 
unformatted direct access, 

5-12 
unformatted sequential, 5-7 



X field descriptor, 6-10 
.XOR., 2-22 



Zero 

byte, 5-24 

character, 6-16 

scale factor, reinstating, 6-20 
Zero-filled records, 5-12 
Zero-length field (null) , 6-18 
Zero-length fields, 6-21 



1-dimensional array, 2-12 
1-byte storage area, 2-4 
2-dimensional array, 2-12 
3-dimensional array, 2-12 
4-byte allocation, 2-4 
32-bit signed quantity, 2-5 
16-bit signed quantity, 2-5 
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